From 0550e3e263eb7e15b83756976a6cc2c5e18022a7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 5 Sep 2017 20:04:23 -0400
Subject: - Added optional "char" syntax for nats.

---
 new-luxc/test/test/luxc/parser.lux | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'new-luxc/test')

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]
-- 
cgit v1.2.3