added test cases for phase issues in the module language repl

2011-11-06 19:14:35 -06:00 · 2011-11-06 19:14:35 -06:00 · cac37b0b6a
commit cac37b0b6a
parent 17ca888a97
1 changed files with 8 additions and 0 deletions
--- 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