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

Fix flags unit tests

db4
Slava Pestov 2008-05-07 05:47:14 -05:00
parent 6bee417504
commit 830d993366
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/concurrency/flags/flags-tests.factor
View File

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