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

test for module require-cycle checking

Browse Source 
svn: r5964
This commit is contained in:
Matthew Flatt 2007-04-17 11:39:23 +00:00
parent 4fe6bd19a4
commit cc8e660737
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/tests/mzscheme/module.ss
View File

@ -271,4 +271,24 @@
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(let ([f1 "tmp1.ss"]
[f2 "tmp2.ss"]
[exn:fail-cycle? (lambda (exn)
(and (exn:fail? exn)
(regexp-match? #rx"cycle" (exn-message exn))))])
(with-output-to-file f1
(lambda ()
(write `(module tmp1 mzscheme (require ,f2))))
'truncate/replace)
(with-output-to-file f2
(lambda ()
(write `(module tmp2 mzscheme (require ,f1))))
'truncate/replace)
(err/rt-test (dynamic-require f1 #f) exn:fail-cycle?)
(err/rt-test (dynamic-require f2 #f) exn:fail-cycle?)
(delete-file f1)
(delete-file f2))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(report-errs) (report-errs)