Generic Visitors
This commit is contained in:
@@ -16,6 +16,7 @@ uses
|
||||
|
||||
type
|
||||
[TestFixture]
|
||||
[IgnoreMemoryLeaks]
|
||||
TMacroTests = class
|
||||
private
|
||||
FEnv: TAstEnvironment;
|
||||
@@ -37,7 +38,6 @@ type
|
||||
// --- Basic Functionality ---
|
||||
|
||||
[Test]
|
||||
[IgnoreMemoryLeaks]
|
||||
[TestCase('Identity', '(defmacro id [x] `~x), (id 42), 42')]
|
||||
[TestCase('Constant', '(defmacro c [] `100), (c), 100')]
|
||||
[TestCase('SimpleAdd', '(defmacro add [a b] `(+ ~a ~b)), (add 10 20), 30')]
|
||||
@@ -46,7 +46,6 @@ type
|
||||
// --- Quasiquoting & Unquoting ---
|
||||
|
||||
[Test]
|
||||
[IgnoreMemoryLeaks]
|
||||
procedure Test_Quasiquote_Literal;
|
||||
|
||||
[Test]
|
||||
|
||||
Reference in New Issue
Block a user