fixed PR 8166

svn: r3701 original commit: 73ce86e94bf9b7f572475bfb2180789bdfca6d48
2006-07-13 19:29:04 +00:00 · 2006-07-13 19:29:04 +00:00 · f2b0445595
commit f2b0445595
parent 6edba2f4c6
1 changed files with 10 additions and 0 deletions
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@ -4509,6 +4509,16 @@
      (eval '(require neg))))
  

+  (error-test
+   #'(parameterize ([current-namespace (make-namespace)])
+       (eval '(module bug mzscheme
+                (require (lib "contract.ss"))
+                (define the-defined-variable 'five)
+                (provide/contract [the-defined-variable number?])))
+       (eval '(require bug)))
+   (λ (x)
+     (and (exn? x)
+          (regexp-match #rx"on the-defined-variable" (exn-message x)))))