suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add test case for 5ef7568

Browse Source
This commit is contained in:
Robby Findler 2014-11-11 10:02:34 -06:00
parent 731a98de64
commit 4c77742a14
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
pkgs/racket-pkgs/racket-test/tests/racket/submodule.rktl
View File

@ -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)