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

2019-01-15 17:31:14 -08:00 · 2019-01-15 17:31:14 -08:00 · 4f240e0d25
parent 77515aa2a9
commit 4f240e0d25
1 changed files with 3 additions and 2 deletions
--- a/basis/timers/timers-tests.factor
+++ b/basis/timers/timers-tests.factor
@ -37,11 +37,12 @@ threads tools.test tools.time ;
    4 seconds sleep
 ] unit-test

-{ { 0 } } [
+{ { 0 } { 1 } } [
    { 0 }
    dup '[ 3 seconds sleep 1 _ set-first ] 1 seconds later
    2 seconds sleep stop-timer
-    1/2 seconds sleep
+    1/2 seconds sleep [ clone ] keep
+    2 seconds sleep clone
 ] unit-test

 { { 0 } } [