From 2674016d3da72f9ff777679cb8c6e9eb59837a5f Mon Sep 17 00:00:00 2001
From: Konrad Hinsen <konrad.hinsen@fastmail.net>
Date: Fri, 7 Jun 2013 16:30:00 +0200
Subject: [PATCH] More tests

---
 tests/native_tests/native_macros.hy | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/native_tests/native_macros.hy b/tests/native_tests/native_macros.hy
index e21d80e..2fb23d3 100644
--- 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))
+