steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/threads/threads-tests.factor
View File

@ -4,7 +4,7 @@ words ;
IN: threads.tests IN: threads.tests
3 "x" set 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 [ 2 ] [ yield "x" get ] unit-test
[ ] [ [ flush ] "flush test" spawn drop flush ] unit-test [ ] [ [ flush ] "flush test" spawn drop flush ] unit-test
[ ] [ [ "Errors, errors" throw ] "error test" spawn drop ] unit-test [ ] [ [ "Errors, errors" throw ] "error test" spawn drop ] unit-test