2008-02-18 08:30:16 -05:00
|
|
|
USING: namespaces io tools.test threads kernel ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: threads.tests
|
2008-02-18 06:07:40 -05:00
|
|
|
|
|
|
|
|
3 "x" set
|
|
|
|
|
namespace [ [ yield 2 "x" set ] bind ] curry "Test" spawn drop
|
|
|
|
|
[ 2 ] [ yield "x" get ] unit-test
|
|
|
|
|
[ ] [ [ flush ] "flush test" spawn drop flush ] unit-test
|
|
|
|
|
[ ] [ [ "Errors, errors" throw ] "error test" spawn drop ] unit-test
|
|
|
|
|
yield
|
|
|
|
|
|
|
|
|
|
[ ] [ 0.3 sleep ] unit-test
|
|
|
|
|
[ "hey" sleep ] must-fail
|
|
|
|
|
|
|
|
|
|
[ 3 ] [
|
2008-02-19 15:38:02 -05:00
|
|
|
[ 3 swap resume-with ] "Test suspend" suspend
|
2008-02-18 06:07:40 -05:00
|
|
|
] unit-test
|
