diff options
Diffstat (limited to 'new-luxc/test/test/luxc/parser.lux')
| -rw-r--r-- | new-luxc/test/test/luxc/parser.lux | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/new-luxc/test/test/luxc/parser.lux b/new-luxc/test/test/luxc/parser.lux index 4c1b65584..247850e2b 100644 --- a/new-luxc/test/test/luxc/parser.lux +++ b/new-luxc/test/test/luxc/parser.lux @@ -106,6 +106,18 @@ false) )) +(context: "Nat special syntax." + [expected (|> r;nat (:: @ map (n.% +1_000)))] + (test "Can parse nat char syntax." + (case (&;parse [default-cursor + (format "#\"" (text;from-code expected) "\"")]) + (#R;Success [_ [_ (#;Nat actual)]]) + (n.= expected actual) + + _ + false) + )) + (def: comment-text^ (r;Random Text) (let [char-gen (|> r;nat (r;filter (function [value] |