catch previously allowed case errors

2022-09-25 20:17:07 +00:00
parent d69175e58e
commit a33baa6541
1 changed files with 4 additions and 0 deletions
--- a/src/test/cases/BasicTestCase.kiss
+++ b/src/test/cases/BasicTestCase.kiss
@@ -361,6 +361,10 @@ From:[(assert false (+ \"false \" \"should \" \"have \" \"been \" \"true\"))]" m
    (if value (Some value) None))

 (function _testCase []
+    // otherwise branch must come last
+    (assertThrowsAtCompileTime (case null (otherwise "thing") (v "OtherThing")))
+    // null must be matched
+    (assertThrowsAtCompileTime (case null (v "thing")))
    (case (toOption [])
        (None (Assert.pass))
        (never otherwise))