mike/transcendental-lisp
1
1
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Formatted a source file

Browse Source
This commit is contained in:
Mike Cifelli 2017-02-25 19:12:34 -05:00
parent 78c7bf4d9c
commit 1fed0433e5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/function/builtin/special/DEFINE_MACROTester.java
View File

@ -62,13 +62,13 @@ public class DEFINE_MACROTester {
evaluateString("(define-macro f (x) (car x))");
assertSExpressionsMatch(parseString("quote"), evaluateString("(f '(1 2 3))"));
}
@Test
public void testDefineMacroAdd() {
evaluateString("(define-macro f (x) (+ (eval x) 23))");
assertSExpressionsMatch(parseString("27"), evaluateString("(f (+ 2 2))"));
}
@Test
public void testDefineMacroSetVariable() {
evaluateString("(define-macro f (x) (set x 23))");
@ -83,6 +83,7 @@ public class DEFINE_MACROTester {
evaluateString("(f x)");
assertSExpressionsMatch(parseString("0"), evaluateString("x"));
}
@Test
public void testDefineMacroAvoidVariableCaptureConvention() {
evaluateString("(setf x 0)");
@ -90,6 +91,7 @@ public class DEFINE_MACROTester {
evaluateString("(f x)");
assertSExpressionsMatch(parseString("23"), evaluateString("x"));
}
@Test
public void redefineMacro_DisplaysWarning() {
String input = "(define-macro myFunction () nil)";