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

removed the custodian, it interferes with mzscheme tests

Browse Source 
svn: r9712
This commit is contained in:
Eli Barzilay 2008-05-07 01:03:32 +00:00
parent f77bd13540
commit 3b569a0a8c
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/run-automated-tests.ss
View File

@ -43,7 +43,6 @@
(for ([t tests]) (for ([t tests])
(define name (cadr t)) (define name (cadr t))
(define cust (make-custodian))
(define (echo fmt . args) (define (echo fmt . args)
(fprintf (current-error-port) "*** ~a: ~a\n" name (apply format fmt args))) (fprintf (current-error-port) "*** ~a: ~a\n" name (apply format fmt args)))
(newline (current-error-port)) (newline (current-error-port))
@ -61,13 +60,10 @@
(lambda (n) (abort n "exit with error code ~a" n))] (lambda (n) (abort n "exit with error code ~a" n))]
[uncaught-exception-handler [uncaught-exception-handler
(lambda (exn) (abort 1 "error: ~a" (exn-message exn)))] (lambda (exn) (abort 1 "error: ~a" (exn-message exn)))]
[current-namespace (make-base-empty-namespace)] [current-namespace (make-base-empty-namespace)])
;; [current-custodian cust] <- makes mzscheme tests stuck
)
(for-each namespace-require (cddr t)) (for-each namespace-require (cddr t))
((case (car t) [(load) load] [(require) namespace-require]) ((case (car t) [(load) load] [(require) namespace-require])
(build-path here name)) (build-path here name))
(echo "all tests passed."))) (echo "all tests passed."))))
(custodian-shutdown-all cust))
(exit exit-code) (exit exit-code)