diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/control/parser.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/control/parser.lux b/stdlib/source/test/lux/control/parser.lux index 1fed0e4cb..382d17063 100644 --- a/stdlib/source/test/lux/control/parser.lux +++ b/stdlib/source/test/lux/control/parser.lux @@ -77,12 +77,12 @@ #0)) (syntax: (match pattern then input) - (wrap (list (` (case (~ input) - (^ (#try.Success [(~' _) (~ pattern)])) - (~ then) + (in (list (` (case (~ input) + (^ (#try.Success [(~' _) (~ pattern)])) + (~ then) - (~' _) - #0))))) + (~' _) + #0))))) (def: combinators_0 Test @@ -246,7 +246,7 @@ (list\map code.nat expected+) actual)))) (_.cover [/.default] - (and (|> (/.run (/.default wrong (\ /.monad wrap expected)) (list)) + (and (|> (/.run (/.default wrong (\ /.monad in expected)) (list)) (match actual (n.= expected actual))) (|> (/.run (/.default expected (: (Parser (List Code) Nat) (/.failure "yolo"))) @@ -331,7 +331,7 @@ (def: injection (Injection (All [a i] (Parser i a))) - (\ /.monad wrap)) + (\ /.monad in)) (def: comparison (Comparison (All [a i] (Parser i a))) @@ -360,7 +360,7 @@ ($monad.spec ..injection ..comparison /.monad)) (_.cover [/.run] - (|> (/.run (\ /.monad wrap expected) (list)) + (|> (/.run (\ /.monad in expected) (list)) (match actual (n.= expected actual)))) (_.cover [/.failure] (|> (list) |