From 97834ebcc2c741dec8c7c27a6d07ba7740c3c613 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 23 Jan 2008 22:25:21 +0000 Subject: [PATCH] fix timeout in portlib test suite svn: r8395 --- collects/tests/mzscheme/parallel.ss | 8 ++++++-- collects/tests/mzscheme/portlib.ss | 1 + 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/parallel.ss b/collects/tests/mzscheme/parallel.ss index 262b8ea924..ab95abd89e 100644 --- a/collects/tests/mzscheme/parallel.ss +++ b/collects/tests/mzscheme/parallel.ss @@ -33,7 +33,9 @@ (cons (let ([ns (make-base-namespace)] [eh (exit-handler)] - [cust (list-ref custodians (sub1 n))]) + [cust (list-ref custodians (sub1 n))] + [ql (namespace-variable-value 'quiet-load #f + (lambda () #f))]) (parameterize ([current-custodian cust]) (thread (lambda () @@ -41,8 +43,10 @@ n (lambda () (parameterize ([current-namespace ns]) - (namespace-transformer-require 'mzscheme) + (namespace-require '(for-syntax scheme/base)) (eval `(define Section-prefix ,(format "~a:" n))) + (when ql + (eval `(define quiet-load (quote ,ql)))) (let ([dirname (path->complete-path (format "sub~s" n))]) (when (directory-exists? dirname) (delete-directory* dirname)) diff --git a/collects/tests/mzscheme/portlib.ss b/collects/tests/mzscheme/portlib.ss index 7b7730238f..0da4c544cb 100644 --- a/collects/tests/mzscheme/portlib.ss +++ b/collects/tests/mzscheme/portlib.ss @@ -476,6 +476,7 @@ (set! v (read-bytes 6 p))))]) (test (void) sync (system-idle-evt) t) (display "56" out) + (test (void) sync (system-idle-evt)) (test t sync/timeout SLEEP-TIME t) (test #"123456" values v)))))