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

alarms: new test case for interrupt race

Slava Pestov 2010-05-23 23:16:41 -04:00
parent fc234b89dd
commit df7fef25ce
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/alarms/alarms-tests.factor
View File

@ -37,3 +37,10 @@ IN: alarms.tests
[ stop-alarm ] [ start-alarm ] bi [ stop-alarm ] [ start-alarm ] bi
4 seconds sleep 4 seconds sleep
] unit-test ] unit-test
[ { 0 } ] [
{ 0 }
dup '[ 3 seconds sleep 1 _ set-first ] 1 seconds later
2 seconds sleep stop-alarm
1/2 seconds sleep
] unit-test