another failing macro test case
This commit is contained in:
@@ -40,4 +40,8 @@ class MacroTestCase extends Test {
|
|||||||
function testPrintAtMacroTime() {
|
function testPrintAtMacroTime() {
|
||||||
_testPrintAtMacroTime();
|
_testPrintAtMacroTime();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
function testSetMacroVar() {
|
||||||
|
_testSetMacroVar();
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
@@ -71,3 +71,12 @@
|
|||||||
|
|
||||||
(function testPrintAtMacroTime []
|
(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)))
|
Reference in New Issue
Block a user