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

timers: add test showing stopping timer doesn't stop a running quotation.

freebsd-work
John Benediktsson 2019-01-15 17:31:14 -08:00
parent 77515aa2a9
commit 4f240e0d25
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/timers/timers-tests.factor
View File

@ -37,11 +37,12 @@ threads tools.test tools.time ;
4 seconds sleep 4 seconds sleep
] unit-test ] unit-test
{ { 0 } } [ { { 0 } { 1 } } [
{ 0 } { 0 }
dup '[ 3 seconds sleep 1 _ set-first ] 1 seconds later dup '[ 3 seconds sleep 1 _ set-first ] 1 seconds later
2 seconds sleep stop-timer 2 seconds sleep stop-timer
1/2 seconds sleep 1/2 seconds sleep [ clone ] keep
2 seconds sleep clone
] unit-test ] unit-test
{ { 0 } } [ { { 0 } } [