update module language part of language-test.rkt for submodules

This commit is contained in:
Robby Findler 2012-03-30 09:15:25 -05:00
parent 2785f9cf9a
commit 7e86c04847

View File

@ -130,7 +130,7 @@ the settings above should match r5rs
(test-expression "(current-command-line-arguments)" "'#()")
(test-expression "(define-syntax app syntax-case)" "{stop-22x22.png} syntax-case: bad syntax in: syntax-case")
(test-expression "#lang racket" #rx"module: illegal use \\(not at top-level\\)" #rx"read: #lang not enabled in the current context")
(test-expression "#lang racket" "" #rx"read: #lang not enabled in the current context")
(test-expression "(define (f)\n(+ (raise-user-error 'a \"b\")))\n(if (zero? (random 1)) (void) (set! f void))\n(f)"
"a: b")))