aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/data/text/regex.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test/lux/data/text/regex.lux')
-rw-r--r--stdlib/source/test/lux/data/text/regex.lux9
1 files changed, 6 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux
index c0b1f9183..1e77a7904 100644
--- a/stdlib/source/test/lux/data/text/regex.lux
+++ b/stdlib/source/test/lux/data/text/regex.lux
@@ -8,7 +8,8 @@
pipe
["." try]
[parser
- ["<.>" text (#+ Parser)]]]
+ ["<.>" text (#+ Parser)]
+ ["<.>" code]]]
[data
["." text ("#\." equivalence)
["%" format (#+ format)]]]
@@ -51,7 +52,9 @@
_
false)))
-(syntax: (should_check pattern regex input)
+(syntax: (should_check [pattern <code>.any
+ regex <code>.any
+ input <code>.any])
(macro.with_identifiers [g!message g!_]
(in (list (` (|> (~ input)
(<text>.result (~ regex))
@@ -269,7 +272,7 @@
"123-456-7890")))
))
-(syntax: (expands? form)
+(syntax: (expands? [form <code>.any])
(function (_ lux)
(#try.Success [lux (list (code.bit (case (macro.single_expansion form lux)
(#try.Success _)