Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

hiding error output in threads test

Browse source
This commit is contained in:
Alex Shinn 2012-09-17 18:02:41 +09:00
parent 00f71d9bd5
commit dd508447f5
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/thread-tests.scm
View file

@ -1,6 +1,6 @@
(cond-expand (cond-expand
(modules (import (srfi 18) (chibi test))) (modules (import (srfi 18) (srfi 39) (chibi test)))
(else #f)) (else #f))
(test-begin "threads") (test-begin "threads")
@ -70,7 +70,10 @@
(thread-join! th))) (thread-join! th)))
(test-error "thread-join! exception" (test-error "thread-join! exception"
(let* ((th (make-thread (lambda () (+ 3 "2"))))) (let* ((th (make-thread
(lambda ()
(parameterize ((current-error-port (open-output-string)))
(+ 3 "2"))))))
(thread-start! th) (thread-start! th)
(thread-join! th))) (thread-join! th)))