diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/test/test/lux/macro/syntax.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/test/test/lux/macro/syntax.lux b/stdlib/test/test/lux/macro/syntax.lux index dfeacb0c6..155f7985a 100644 --- a/stdlib/test/test/lux/macro/syntax.lux +++ b/stdlib/test/test/lux/macro/syntax.lux @@ -105,7 +105,7 @@ [(test (format "Can parse " <type> " syntax.") (and (match [#1 123] (p.run (list (<ctor> (list (code.bit #1) (code.int 123)))) - (<parser> (p.seq s.bit s.int)))) + (<parser> (p.and s.bit s.int)))) (match #1 (p.run (list (<ctor> (list (code.bit #1)))) (<parser> s.bit))) @@ -113,12 +113,12 @@ (<parser> s.bit))) (match (#.Left #1) (p.run (list (<ctor> (list (code.bit #1)))) - (<parser> (p.alt s.bit s.int)))) + (<parser> (p.or s.bit s.int)))) (match (#.Right 123) (p.run (list (<ctor> (list (code.int 123)))) - (<parser> (p.alt s.bit s.int)))) + (<parser> (p.or s.bit s.int)))) (fails? (p.run (list (<ctor> (list (code.frac 123.0)))) - (<parser> (p.alt s.bit s.int))))))] + (<parser> (p.or s.bit s.int))))))] ["form" s.form code.form] ["tuple" s.tuple code.tuple])] @@ -128,7 +128,7 @@ (test "Can parse record syntax." (match [#1 123] (p.run (list (code.record (list [(code.bit #1) (code.int 123)]))) - (s.record (p.seq s.bit s.int))))) + (s.record (p.and s.bit s.int))))) ))) (context: "Combinators" |