- Added optional "char" syntax for nats.

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]