steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/concurrency/count-downs/count-downs-tests.factor

17 lines
463 B
Factor
Raw Normal View History

core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
USING: concurrency.count-downs threads kernel tools.test ;
IN: concurrency.count-downs.tests`
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ } [ 0 <count-down> await ] unit-test
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
[ 1 <count-down> dup count-down count-down ] must-fail
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
2015-07-03 12:39:59 -04:00
{ } [
core, basis, extra: Remove DOS line endings from files. Remove whitespace from end of lines. Add a newline to the end of each file.
2015-06-29 19:43:15 -04:00
1 <count-down>
3 <count-down>
2dup [ await count-down ] 2curry "Master" spawn drop
dup [ count-down ] curry "Slave" spawn drop
dup [ count-down ] curry "Slave" spawn drop
dup [ count-down ] curry "Slave" spawn drop
drop await
] unit-test