More robust threads test

db4
Slava Pestov 2008-05-09 17:14:26 -05:00
parent d425844485
commit 4ffac018a1
1 changed files with 1 additions and 1 deletions

View File

@ -4,7 +4,7 @@ words ;
IN: threads.tests
3 "x" set
namespace [ [ yield 2 "x" set ] bind ] curry "Test" spawn drop
[ 2 "x" set ] "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