diff --git a/kiss/src/test/cases/BasicTestCase.kiss b/kiss/src/test/cases/BasicTestCase.kiss index faa2f41f..b8388308 100644 --- a/kiss/src/test/cases/BasicTestCase.kiss +++ b/kiss/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))