Close #5

2021-07-12 20:33:54 -06:00
parent e397860893
commit 4f6a45a1b9
2 changed files with 25 additions and 18 deletions
--- a/src/test/cases/BasicTestCase.kiss
+++ b/src/test/cases/BasicTestCase.kiss
@@ -459,7 +459,13 @@
            (Assert.fail))
        (unlessLet [(Some (or 5 6)) some5]
            (print "something else went wrong!")
-            (Assert.fail))))
+            (Assert.fail))
+            
+        // Don't double evaluate the expression:    
+        (let [&mut v 1]
+            (unlessLet [2 (begin (+= v 1) v)]
+                (Assert.fail))
+            (Assert.equals 2 v))))

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