From fe10bcb18cbe7651e5805eaeaf22edd60766bb95 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sun, 26 Feb 2012 19:03:26 -0500
Subject: [PATCH] adding test files for tracing the module scoping bug

---
 tests/more-tests/module-scoping-helper.rkt | 10 ++++++++++
 tests/more-tests/module-scoping.rkt        | 13 +++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 tests/more-tests/module-scoping-helper.rkt
 create mode 100644 tests/more-tests/module-scoping.rkt

diff --git a/tests/more-tests/module-scoping-helper.rkt b/tests/more-tests/module-scoping-helper.rkt
new file mode 100644
index 0000000..abb79d9
--- /dev/null
+++ b/tests/more-tests/module-scoping-helper.rkt
@@ -0,0 +1,10 @@
+#lang planet dyoo/whalesong
+(require (for-syntax racket/base))
+(provide x x++ x=0)
+(define x 0)
+(define (set-x v)
+  (set! x v))
+(define-syntax (x++ stx)
+  #'(set-x (add1 x)))
+(define-syntax (x=0 stx)
+  #'(set-x 0))
\ No newline at end of file
diff --git a/tests/more-tests/module-scoping.rkt b/tests/more-tests/module-scoping.rkt
new file mode 100644
index 0000000..30b5bd7
--- /dev/null
+++ b/tests/more-tests/module-scoping.rkt
@@ -0,0 +1,13 @@
+#lang planet dyoo/whalesong
+(require "module-scoping-helper.rkt")
+x
+x++
+x++
+x
+x=0
+x++
+x
+x++
+x
+x++
+x
\ No newline at end of file