More tests

2013-06-07 16:30:00 +02:00 · 2013-06-07 16:30:00 +02:00 · 2674016d3d
commit 2674016d3d
parent 6eacf63b53
1 changed files with 7 additions and 0 deletions
--- a/tests/native_tests/native_macros.hy
+++ b/tests/native_tests/native_macros.hy
@ -54,3 +54,10 @@
 (assert (= phase "load"))
 (assert (= (phase-when-compiling) "compile"))

+(setv initialized False)
+(eval-and-compile
+ (setv initialized True))
+(defmacro test-initialized [] initialized)
+(assert initialized)
+(assert (test-initialized))
+