assertLet

2021-11-14 20:34:58 -07:00
parent 76a340e3b4
commit 2b31027446
2 changed files with 20 additions and 10 deletions
--- a/kiss/src/test/cases/BasicTestCase.kiss
+++ b/kiss/src/test/cases/BasicTestCase.kiss
@@ -498,7 +498,10 @@
        (let [&mut v 1]
            (unlessLet [2 (begin (+= v 1) v)]
                (Assert.fail))
-            (Assert.equals 2 v))))
+            (Assert.equals 2 v))
+            
+        (assertThrows (assertLet [(Some thing) none] thing))
+        (Assert.equals 5 (assertLet [(Some thing) some5] thing))))

 (function _testRawString []
    (Assert.equals #| "\\" |# #"\"#)