add (currently failing) test case for changing the current module inside

`begin' form

* test-suite/tests/syncase.scm: ("expander detects changes to current-module"):
  New test case.

diff --git a/test-suite/tests/syncase.test b/test-suite/tests/syncase.test
index a7a79c4..715693d 100644 (file)
--- a/test-suite/tests/syncase.test
+++ b/test-suite/tests/syncase.test
@@ -106,3 +106,15 @@
   (pass-if "compiled macro-generating macro works"
     (eq? (eval '(kwote* foo) (current-module))
          'foo)))
+
+(with-test-prefix "changes to expansion environment"
+  (pass-if "expander detects changes to current-module"
+    (false-if-exception
+      (compile '(begin
+                 (define-module (new-module))
+                 (define-syntax new-module-macro
+                   (lambda (stx)
+                     (syntax-case stx () 
+                       ((_ arg) (syntax arg)))))
+                 (new-module-macro #t))
+              #:env (current-module)))))