From cac37b0b6a69957cbf016cace803be51e13cf9cc Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 6 Nov 2011 19:14:35 -0600
Subject: [PATCH] added test cases for phase issues in the module language repl

---
 collects/tests/drracket/module-lang-test.rkt | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/collects/tests/drracket/module-lang-test.rkt b/collects/tests/drracket/module-lang-test.rkt
index 435519d274..f36fe787ef 100644
--- a/collects/tests/drracket/module-lang-test.rkt
+++ b/collects/tests/drracket/module-lang-test.rkt
@@ -162,6 +162,14 @@
       @t{1} ;; just make sure no errors.
       "1")
 
+(test @t{#lang racket}
+      @t{(begin-for-syntax (+ 1 2))}
+      "")
+
+(test @t{#lang racket}
+      @t{(begin (struct s (x)) (struct t s (y)) (s-x (t 1 2)))}
+      "1")
+
 ;; check that we have a working repl in the right language after
 ;; syntax errors, unless it's a bad language
 (test @t{#lang racket