Fix flags unit tests
parent
6bee417504
commit
830d993366
|
@ -1,12 +1,12 @@
|
|||
IN: concurrency.flags.tests
|
||||
USING: tools.test concurrency.flags concurrency.combinators
|
||||
kernel threads locals ;
|
||||
kernel threads locals accessors ;
|
||||
|
||||
:: flag-test-1 ( -- )
|
||||
[let | f [ <flag> ] |
|
||||
[ f raise-flag ] "Flag test" spawn drop
|
||||
f lower-flag
|
||||
f flag-value?
|
||||
f value>>
|
||||
] ;
|
||||
|
||||
[ f ] [ flag-test-1 ] unit-test
|
||||
|
@ -15,7 +15,7 @@ kernel threads locals ;
|
|||
[let | f [ <flag> ] |
|
||||
[ 1000 sleep f raise-flag ] "Flag test" spawn drop
|
||||
f lower-flag
|
||||
f flag-value?
|
||||
f value>>
|
||||
] ;
|
||||
|
||||
[ f ] [ flag-test-2 ] unit-test
|
||||
|
@ -23,7 +23,7 @@ kernel threads locals ;
|
|||
:: flag-test-3 ( -- )
|
||||
[let | f [ <flag> ] |
|
||||
f raise-flag
|
||||
f flag-value?
|
||||
f value>>
|
||||
] ;
|
||||
|
||||
[ t ] [ flag-test-3 ] unit-test
|
||||
|
@ -32,7 +32,7 @@ kernel threads locals ;
|
|||
[let | f [ <flag> ] |
|
||||
[ f raise-flag ] "Flag test" spawn drop
|
||||
f wait-for-flag
|
||||
f flag-value?
|
||||
f value>>
|
||||
] ;
|
||||
|
||||
[ t ] [ flag-test-4 ] unit-test
|
||||
|
@ -41,7 +41,7 @@ kernel threads locals ;
|
|||
[let | f [ <flag> ] |
|
||||
[ 1000 sleep f raise-flag ] "Flag test" spawn drop
|
||||
f wait-for-flag
|
||||
f flag-value?
|
||||
f value>>
|
||||
] ;
|
||||
|
||||
[ t ] [ flag-test-5 ] unit-test
|
||||
|
|
Loading…
Reference in New Issue