natural numbers

tests/Tests/Typechecker.idr

@@ -363,6 +363,18 @@ tests = "typechecker" :- [
       check_ empty01 sone (Tag "a") (enum ["b", "c"])
   ],
 
+  "enum matching" :- [
+    testTC "ω.x : {tt} ⊢ 1 · case1 x return {tt} of { 'tt ⇒ 'tt } ⇒ {tt}" $
+      inferAs (ctx [< ("x", enum ["tt"])]) sone
+        (CaseEnum One (BV 0) (SN (enum ["tt"])) $
+          singleton "tt" (Tag "tt"))
+        (enum ["tt"]),
+    testTCFail "ω.x : {tt} ⊢ 1 · case1 x return {tt} of { 'ff ⇒ 'tt } ⇏" $
+      infer_ (ctx [< ("x", enum ["tt"])]) sone
+        (CaseEnum One (BV 0) (SN (enum ["tt"])) $
+          singleton "ff" (Tag "tt"))
+  ],
+
   "equalities" :- [
     testTC "1 · (δ i ⇒ a) ⇐ a ≡ a" $
       check_ empty sone (DLam $ SN $ FT "a")