More tests
This commit is contained in:
parent
6eacf63b53
commit
2674016d3d
@ -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))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user