timers: add test showing stopping timer doesn't stop a running quotat…

…ion.
factor · Jan 16, 2019 · 4f240e0 · 4f240e0
1 parent 77515aa
commit 4f240e0
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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 } } [