From 00696cbfacafdc82d0b4ef72c25021ae6a264e44 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Fri, 25 Mar 2011 15:00:52 -0600
Subject: [PATCH] variable-reference->module-source test

---
 collects/tests/racket/namespac.rktl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/collects/tests/racket/namespac.rktl b/collects/tests/racket/namespac.rktl
index 0ad686ad15..96e3a57cb3 100644
--- a/collects/tests/racket/namespac.rktl
+++ b/collects/tests/racket/namespac.rktl
@@ -168,4 +168,12 @@
 
 ;; ----------------------------------------
 
+(module va->ms racket/base
+  (provide modsrc)
+  (define modsrc (variable-reference->module-source (#%variable-reference))))
+
+(test 'va->ms dynamic-require ''va->ms 'modsrc)
+
+;; ----------------------------------------
+
 (report-errs)