From fa320d22d0d7888feddcabe43a2bc9f1e0335032 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Jul 2021 02:36:42 -0400
Subject: Yet more renamings.

---
 stdlib/source/test/lux.lux | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 04f6bea3f..793fd23b3 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -409,6 +409,13 @@
 (/.macro: (identity_macro tokens)
   (\ meta.monad in tokens))
 
+(def: crosshair
+  "This is an arbitrary text whose only purpose is to be found, somewhere, in the source-code.")
+
+(/.macro: (found_crosshair? tokens lux)
+  (let [[_ _ source_code] (get@ #.source lux)]
+    (#.Right [lux (list (code.bit (text.contains? ..crosshair source_code)))])))
+
 (def: for_macro
   Test
   (let [macro (: /.Macro'
@@ -429,6 +436,8 @@
                        (is? (: Any macro))))
           (_.cover [/.macro:]
                    (is? expected (..identity_macro expected)))
+          (_.cover [/.Source]
+                   (..found_crosshair?))
           ))))
 
 (/.type: for_type/variant
-- 
cgit v1.2.3