From d9849f45cfcf4e3c618df00bc7ad0a5b125db04b Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Sat, 23 Sep 2006 00:08:49 +0000 Subject: [PATCH] (gmtime, strptime): Remove the "unresolved" throws, the error+thread tests seem ok now (previously were upset by something leaking out of syntax.test). --- test-suite/tests/time.test | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/test-suite/tests/time.test b/test-suite/tests/time.test index 6dd03b873..e228dfb09 100644 --- a/test-suite/tests/time.test +++ b/test-suite/tests/time.test @@ -32,15 +32,9 @@ (pass-if (list "in another thread after error" t) (or (provided? 'threads) (throw 'unsupported)) - ;; actually this test is perfectly good, but the "internal - ;; define - missing body expression" in syntax.test somehow - ;; ends up leaving SCM_DEFER_INTS, making the test here hang - ;; - (throw 'unresolved) - (alarm 5) (false-if-exception (gmtime t)) - (thread-join (begin-thread (catch 'out-of-range + (join-thread (begin-thread (catch 'out-of-range (lambda () (gmtime t)) (lambda args #f)))) (alarm 0) @@ -265,16 +259,10 @@ (or (defined? 'strptime) (throw 'unsupported)) (or (provided? 'threads) (throw 'unsupported)) - ;; actually this test is perfectly good, but the "internal define - - ;; missing body expression" in syntax.test somehow ends up leaving - ;; SCM_DEFER_INTS, making the test here hang - ;; - (throw 'unresolved) - (alarm 5) (false-if-exception (strptime "%a" "nosuchday")) - (thread-join (begin-thread (strptime "%d" "1"))) + (join-thread (begin-thread (strptime "%d" "1"))) (alarm 0) #t)