From 4c77742a140451a0bf1e73aa4f8a63c69c318463 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 11 Nov 2014 10:02:34 -0600 Subject: [PATCH] add test case for 5ef7568 --- .../racket-test/tests/racket/submodule.rktl | 23 +++++++++++++++++++ 1 file changed, 23 insertions(+) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/submodule.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/submodule.rktl index 72fed9025b..aec0c2e41e 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/submodule.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/submodule.rktl @@ -948,6 +948,29 @@ _)))) (test #t list? (identifier-binding #'y))]))) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check error message for variable errors in submodules + +(module variable-error-message-in-submodule racket/base + (module m1 racket/base + x + (define x 1)) + (module m2 racket/base + (set! x 2) + (define x 1))) + +(err/rt-test + (dynamic-require '(submod 'variable-error-message-in-submodule m1) #f) + (λ (x) (and (exn:fail? x) + (regexp-match (regexp-quote "(submod 'variable-error-message-in-submodule m1)") + (exn-message x))))) + +(err/rt-test + (dynamic-require '(submod 'variable-error-message-in-submodule m2) #f) + (λ (x) (and (exn:fail? x) + (regexp-match (regexp-quote "(submod 'variable-error-message-in-submodule m2)") + (exn-message x))))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs)