added a scheme/load test

svn: r11118
2008-08-07 01:36:48 +00:00 · 2008-08-07 01:36:48 +00:00 · a4aaa18f9c
commit a4aaa18f9c
parent 5b33922526
1 changed files with 9 additions and 0 deletions
--- a/collects/tests/drscheme/module-lang-test.ss
+++ b/collects/tests/drscheme/module-lang-test.ss
@ -208,3 +208,12 @@
          Module Language: invalid language specification
          Interactions disabled}
      #t)
+
+(test @t{#lang scheme/load
+         (module m mzscheme (provide x) (define x 2))
+         (require 'm)
+         (printf "~s\n" x)
+         (flush-output)}
+      #f
+      @t{2})
+