From 4f240e0d25a3238103000b1db40484bbe77615e1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 15 Jan 2019 17:31:14 -0800
Subject: [PATCH] timers: add test showing stopping timer doesn't stop a
 running quotation.

---
 basis/timers/timers-tests.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/timers/timers-tests.factor b/basis/timers/timers-tests.factor
index 5abb0023e0f..ce2a79f8330 100644
--- 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 } } [