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

54 lines
1.2 KiB
Factor
Raw Normal View History

New convention for unit tests
2008-03-01 17:00:45 -05:00
IN: concurrency.flags.tests
Multiple threads can now wait on one flag simultaneously
2008-05-07 04:28:45 -04:00
USING: tools.test concurrency.flags concurrency.combinators
Replace millis primitive with micros primitive Add millis as a library word sleep now takes either a duration or a microsecond count; code using durations doens't need to be updated, code using millisecond counts updated to use durations for the most part
2008-11-19 02:50:05 -05:00
kernel threads locals accessors calendar ;
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
:: flag-test-1 ( -- )
[let | f [ <flag> ] |
[ f raise-flag ] "Flag test" spawn drop
f lower-flag
Fix flags unit tests
2008-05-07 06:47:14 -04:00
f value>>
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
] ;
[ f ] [ flag-test-1 ] unit-test
:: flag-test-2 ( -- )
[let | f [ <flag> ] |
Replace millis primitive with micros primitive Add millis as a library word sleep now takes either a duration or a microsecond count; code using durations doens't need to be updated, code using millisecond counts updated to use durations for the most part
2008-11-19 02:50:05 -05:00
[ 1 seconds sleep f raise-flag ] "Flag test" spawn drop
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
f lower-flag
Fix flags unit tests
2008-05-07 06:47:14 -04:00
f value>>
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
] ;
[ f ] [ flag-test-2 ] unit-test
:: flag-test-3 ( -- )
[let | f [ <flag> ] |
f raise-flag
Fix flags unit tests
2008-05-07 06:47:14 -04:00
f value>>
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
] ;
[ t ] [ flag-test-3 ] unit-test
:: flag-test-4 ( -- )
[let | f [ <flag> ] |
[ f raise-flag ] "Flag test" spawn drop
f wait-for-flag
Fix flags unit tests
2008-05-07 06:47:14 -04:00
f value>>
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
] ;
[ t ] [ flag-test-4 ] unit-test
:: flag-test-5 ( -- )
[let | f [ <flag> ] |
Replace millis primitive with micros primitive Add millis as a library word sleep now takes either a duration or a microsecond count; code using durations doens't need to be updated, code using millisecond counts updated to use durations for the most part
2008-11-19 02:50:05 -05:00
[ 1 seconds sleep f raise-flag ] "Flag test" spawn drop
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
f wait-for-flag
Fix flags unit tests
2008-05-07 06:47:14 -04:00
f value>>
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
] ;
[ t ] [ flag-test-5 ] unit-test
Multiple threads can now wait on one flag simultaneously
2008-05-07 04:28:45 -04:00
[ ] [
{ 1 2 } <flag>
Replace millis primitive with micros primitive Add millis as a library word sleep now takes either a duration or a microsecond count; code using durations doens't need to be updated, code using millisecond counts updated to use durations for the most part
2008-11-19 02:50:05 -05:00
[ [ 1 seconds sleep raise-flag ] curry "Flag test" spawn drop ]
Multiple threads can now wait on one flag simultaneously
2008-05-07 04:28:45 -04:00
[ [ wait-for-flag drop ] curry parallel-each ] bi
] unit-test