diff options
Diffstat (limited to 'stdlib/source/test/lux/data/text/regex.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/text/regex.lux | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux index 3a9fc740d..03f1e2f9c 100644 --- a/stdlib/source/test/lux/data/text/regex.lux +++ b/stdlib/source/test/lux/data/text/regex.lux @@ -21,7 +21,8 @@ (def: (should-pass regex input) (-> (Parser Text) Text Bit) - (|> (<text>.run input regex) + (|> input + (<text>.run regex) (case> (#error.Success parsed) (text@= parsed input) @@ -30,7 +31,8 @@ (def: (text-should-pass test regex input) (-> Text (Parser Text) Text Bit) - (|> (<text>.run input regex) + (|> input + (<text>.run regex) (case> (#error.Success parsed) (text@= test parsed) @@ -39,7 +41,8 @@ (def: (should-fail regex input) (All [a] (-> (Parser a) Text Bit)) - (|> (<text>.run input regex) + (|> input + (<text>.run regex) (case> (#error.Failure _) true @@ -48,7 +51,8 @@ (syntax: (should-check pattern regex input) (macro.with-gensyms [g!message g!_] - (wrap (list (` (|> (<text>.run (~ input) (~ regex)) + (wrap (list (` (|> (~ input) + (<text>.run (~ regex)) (case> (^ (#error.Success (~ pattern))) true |