From a4aaa18f9c6b6dc2e72a9446785e5946230148e9 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 7 Aug 2008 01:36:48 +0000
Subject: [PATCH] added a scheme/load test

svn: r11118
---
 collects/tests/drscheme/module-lang-test.ss | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/collects/tests/drscheme/module-lang-test.ss b/collects/tests/drscheme/module-lang-test.ss
index 3e2509f0f3..8a3f518856 100644
--- 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})
+