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

49 lines
1.1 KiB
Factor
Raw Normal View History

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 ;
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring
2009-08-13 20:21:44 -04:00
IN: concurrency.flags.tests
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
Get rid of some more >r/r> usages
2008-11-30 19:28:15 -05:00
:: flag-test-1 ( -- val )
update existing code for [let change
2009-10-27 22:50:31 -04:00
<flag> :> f
[ f raise-flag ] "Flag test" spawn drop
f lower-flag
f value>> ;
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
[ f ] [ flag-test-1 ] unit-test
fix more compiler errors
2009-04-17 15:44:08 -04:00
:: flag-test-2 ( -- ? )
update existing code for [let change
2009-10-27 22:50:31 -04:00
<flag> :> f
[ 1 seconds sleep f raise-flag ] "Flag test" spawn drop
f lower-flag
f value>> ;
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
[ f ] [ flag-test-2 ] unit-test
Get rid of some more >r/r> usages
2008-11-30 19:28:15 -05:00
:: flag-test-3 ( -- val )
update existing code for [let change
2009-10-27 22:50:31 -04:00
<flag> :> f
f raise-flag
f value>> ;
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
[ t ] [ flag-test-3 ] unit-test
Get rid of some more >r/r> usages
2008-11-30 19:28:15 -05:00
:: flag-test-4 ( -- val )
update existing code for [let change
2009-10-27 22:50:31 -04:00
<flag> :> f
[ f raise-flag ] "Flag test" spawn drop
f wait-for-flag
f value>> ;
Fix UI hang, add if-box combinator
2008-02-29 20:10:30 -05:00
[ t ] [ flag-test-4 ] unit-test
Get rid of some more >r/r> usages
2008-11-30 19:28:15 -05:00
:: flag-test-5 ( -- val )
update existing code for [let change
2009-10-27 22:50:31 -04:00
<flag> :> f
[ 1 seconds sleep f raise-flag ] "Flag test" spawn drop
f wait-for-flag
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