From 3b569a0a8cbc0933cad9f520a99ce7ed5d9301a3 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 7 May 2008 01:03:32 +0000 Subject: [PATCH] removed the custodian, it interferes with mzscheme tests svn: r9712 --- collects/tests/run-automated-tests.ss | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/collects/tests/run-automated-tests.ss b/collects/tests/run-automated-tests.ss index ebf0c63a1a..e1563e2658 100755 --- a/collects/tests/run-automated-tests.ss +++ b/collects/tests/run-automated-tests.ss @@ -43,7 +43,6 @@ (for ([t tests]) (define name (cadr t)) - (define cust (make-custodian)) (define (echo fmt . args) (fprintf (current-error-port) "*** ~a: ~a\n" name (apply format fmt args))) (newline (current-error-port)) @@ -61,13 +60,10 @@ (lambda (n) (abort n "exit with error code ~a" n))] [uncaught-exception-handler (lambda (exn) (abort 1 "error: ~a" (exn-message exn)))] - [current-namespace (make-base-empty-namespace)] - ;; [current-custodian cust] <- makes mzscheme tests stuck - ) + [current-namespace (make-base-empty-namespace)]) (for-each namespace-require (cddr t)) ((case (car t) [(load) load] [(require) namespace-require]) (build-path here name)) - (echo "all tests passed."))) - (custodian-shutdown-all cust)) + (echo "all tests passed.")))) (exit exit-code)