mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 21:30:29 +02:00
Code Activity

(gmtime, strptime): Remove the "unresolved" throws,

Browse source 
the error+thread tests seem ok now (previously were upset by something
leaking out of syntax.test).
This commit is contained in:
Kevin Ryde 2006-09-23 00:08:49 +00:00
parent 2651eca479
commit d9849f45cf
1 changed files with 2 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

16
test-suite/tests/time.test
View file

@ -32,15 +32,9 @@
(pass-if (list "in another thread after error" t) (pass-if (list "in another thread after error" t)
(or (provided? 'threads) (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) (alarm 5)
(false-if-exception (gmtime t)) (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 () (gmtime t))
(lambda args #f)))) (lambda args #f))))
(alarm 0) (alarm 0)
@ -265,16 +259,10 @@
(or (defined? 'strptime) (throw 'unsupported)) (or (defined? 'strptime) (throw 'unsupported))
(or (provided? 'threads) (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) (alarm 5)
(false-if-exception (false-if-exception
(strptime "%a" "nosuchday")) (strptime "%a" "nosuchday"))
(thread-join (begin-thread (strptime "%d" "1"))) (join-thread (begin-thread (strptime "%d" "1")))
(alarm 0) (alarm 0)
#t) #t)