another failing macro test case

2021-10-13 20:10:02 -04:00
parent cd90864114
commit e9d5b4f65f
2 changed files with 14 additions and 1 deletions
--- a/kiss/src/test/cases/MacroTestCase.hx
+++ b/kiss/src/test/cases/MacroTestCase.hx
@@ -40,4 +40,8 @@ class MacroTestCase extends Test {
    function testPrintAtMacroTime() {
        _testPrintAtMacroTime();
    }
+
+    function testSetMacroVar() {
+        _testSetMacroVar();
+    }
 }
--- a/kiss/src/test/cases/MacroTestCase.kiss
+++ b/kiss/src/test/cases/MacroTestCase.kiss
@@ -70,4 +70,13 @@
    (printAtMacroTime))

 (function testPrintAtMacroTime []
-    (_testPrintAtMacroTimeMacro))
+    (_testPrintAtMacroTimeMacro))
+
+(defMacroVar count 0)
+(defMacro _testSetMacroVarMacro []
+    (set count (+ count 1))
+    (ReaderExp.StrExp (Std.string count)))
+
+(function _testSetMacroVar []
+    (Assert.equals 1 (_testSetMacroVarMacro))
+    (Assert.equals 2 (_testSetMacroVarMacro)))