parser stuff

tests/Tests/Lexer.idr

@@ -127,10 +127,14 @@ tests = "lexer" :- [
     acceptsWith' "Π"    [K Pi],
     acceptsWith' "Σ"    [K Sigma],
     acceptsWith' "W"    [K W],
-    acceptsWith' "★"    [K TYPE],
     acceptsWith' "WAAA" [Name "WAAA"]
   ],
 
+  "universes" :- [
+    acceptsWith' "★10"    [TYPE 10],
+    rejects'     "★"
+  ],
+
   "numbers" :- [
     acceptsWith' "0"      [N Zero],
     acceptsWith' "1"      [N One],

tests/Tests/Parser.idr

@@ -128,10 +128,17 @@ tests = "parser" :- [
       trejects = rejectsNote tgrm " (term)"
       erejects = rejectsNote egrm " (elim)"
   in [
-    eparses  "a"   (F "a"),
-    eparses  "x"   (BV 2),
-    trejects "a",
-    tparses  "[a]" (FT "a"),
-    tparses  "[x]" (BVT 2)
+    "universes" :- [
+      tparses "★0"    (TYPE 0),
+      tparses "★1000" (TYPE 1000)
+    ],
+
+    "variables" :- [
+      eparses  "a"   (F "a"),
+      eparses  "x"   (BV 2),
+      trejects "a",
+      tparses  "[a]" (FT "a"),
+      tparses  "[x]" (BVT 2)
+    ]
   ]
 ]