26 lines
440 B
Factor
26 lines
440 B
Factor
USING: concurrency.futures kernel tools.test threads ;
|
|
IN: concurrency.futures.tests
|
|
|
|
{ 50 } [
|
|
[ 50 ] future ?future
|
|
] unit-test
|
|
|
|
[
|
|
[ "this should propogate" throw ] future ?future
|
|
] must-fail
|
|
|
|
{ } [
|
|
[ "this should not propogate" throw ] future drop
|
|
] unit-test
|
|
|
|
! Race condition with futures
|
|
{ 3 3 } [
|
|
[ 3 ] future
|
|
dup ?future swap ?future
|
|
] unit-test
|
|
|
|
! Another race
|
|
{ 3 } [
|
|
[ 3 yield ] future ?future
|
|
] unit-test
|