From: Lutz Euler <lutz.euler@freenet.de>
Date: Sun, 7 Jul 2013 13:06:47 +0000 (+0200)
Subject: Add a regression test for lp#1194673.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8fb553e9d867f6345932beaa78fcd07d8d4e555b;p=sbcl.git

Add a regression test for lp#1194673.
---

diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp
index 8f5d806..2612bf3 100644
--- a/tests/interface.pure.lisp
+++ b/tests/interface.pure.lisp
@@ -76,6 +76,17 @@
     (ctu:assert-no-consing (sleep 0.00001d0))
     (ctu:assert-no-consing (sleep 1/100000003))))
 
+;;; Changes to make SLEEP cons less led to SLEEP
+;;; not sleeping at all on 32-bit platforms when
+;;; (> (mod seconds 1) (* most-positive-fixnum 1e-9)).
+(with-test (:name :bug-1194673)
+  (assert (eq :timeout
+              (handler-case
+                  (with-timeout 0.01
+                    (sleep 0.6))
+                (timeout ()
+                  :timeout)))))
+
 ;;; SLEEP should work with large integers as well
 (with-test (:name (sleep pretty-much-forever))
   (assert (eq :timeout