From 079c1bb3d4de1c5e9bcda0854871f0fc06e15f6f Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Wed, 13 Oct 2021 20:10:02 -0400 Subject: [PATCH] another failing macro test case --- src/test/cases/MacroTestCase.hx | 4 ++++ src/test/cases/MacroTestCase.kiss | 11 ++++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/src/test/cases/MacroTestCase.hx b/src/test/cases/MacroTestCase.hx index 24454a2..f32a8e9 100644 --- a/src/test/cases/MacroTestCase.hx +++ b/src/test/cases/MacroTestCase.hx @@ -40,4 +40,8 @@ class MacroTestCase extends Test { function testPrintAtMacroTime() { _testPrintAtMacroTime(); } + + function testSetMacroVar() { + _testSetMacroVar(); + } } diff --git a/src/test/cases/MacroTestCase.kiss b/src/test/cases/MacroTestCase.kiss index de9e87c..9b90519 100644 --- a/src/test/cases/MacroTestCase.kiss +++ b/src/test/cases/MacroTestCase.kiss @@ -70,4 +70,13 @@ (printAtMacroTime)) (function testPrintAtMacroTime [] - (_testPrintAtMacroTimeMacro)) \ No newline at end of file + (_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))) \ No newline at end of file