forgot name for thread tests

This commit is contained in:
Alex Shinn 2011-04-26 22:46:54 +09:00
parent 0420bba565
commit 4bbbe6119e

View file

@ -1,7 +1,7 @@
(import (srfi 18) (only (chibi test) test-begin test test-end))
(test-begin)
(test-begin "threads")
(test "no threads" (begin 'ok) 'ok)
(test "unstarted thread" (let ((t (make-thread (lambda () (error "oops"))))) 'ok) 'ok)