More tests

This commit is contained in:
Konrad Hinsen 2013-06-07 16:30:00 +02:00
parent 6eacf63b53
commit 2674016d3d

View File

@ -54,3 +54,10 @@
(assert (= phase "load")) (assert (= phase "load"))
(assert (= (phase-when-compiling) "compile")) (assert (= (phase-when-compiling) "compile"))
(setv initialized False)
(eval-and-compile
(setv initialized True))
(defmacro test-initialized [] initialized)
(assert initialized)
(assert (test-initialized))