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.lux10
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux
index 263c6cb50..c0b1f9183 100644
--- a/stdlib/source/test/lux/data/text/regex.lux
+++ b/stdlib/source/test/lux/data/text/regex.lux
@@ -24,7 +24,7 @@
(def: (should_pass regex input)
(-> (Parser Text) Text Bit)
(|> input
- (<text>.run regex)
+ (<text>.result regex)
(case> (#try.Success parsed)
(text\= parsed input)
@@ -34,7 +34,7 @@
(def: (text_should_pass test regex input)
(-> Text (Parser Text) Text Bit)
(|> input
- (<text>.run regex)
+ (<text>.result regex)
(case> (#try.Success parsed)
(text\= test parsed)
@@ -44,7 +44,7 @@
(def: (should_fail regex input)
(All [a] (-> (Parser a) Text Bit))
(|> input
- (<text>.run regex)
+ (<text>.result regex)
(case> (#try.Failure _)
true
@@ -52,9 +52,9 @@
false)))
(syntax: (should_check pattern regex input)
- (macro.with_gensyms [g!message g!_]
+ (macro.with_identifiers [g!message g!_]
(in (list (` (|> (~ input)
- (<text>.run (~ regex))
+ (<text>.result (~ regex))
(case> (^ (#try.Success (~ pattern)))
true