Void function support

2021-03-17 11:15:12 -06:00
parent 64e31cfb8b
commit 96d08e5d88
6 changed files with 52 additions and 8 deletions
--- a/src/test/cases/BasicTestCase.kiss
+++ b/src/test/cases/BasicTestCase.kiss
@@ -476,7 +476,18 @@
            withoutArgs
                ->{
                    (+ 5)
-                    6}]
+                    6}
+            &mut num 5
+            void
+                ->:Void [] (set num 6)]
        (Assert.equals 11 (withArgs 5 6))
        (Assert.equals 12 (withArg 6))
-        (Assert.equals 6 (withoutArgs))))
+        (Assert.equals 6 (withoutArgs))
+        (void)
+        (Assert.equals 6 num)))
+
+(defvar &mut voidRan false)
+(defun :Void myVoid [] (set voidRan true))
+(defun _testVoid []
+    (myVoid)
+    (Assert.isTrue voidRan))