X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsignals.impure.lisp;h=093bf23cbafb7aa4c3e4933a414c22927069abb3;hb=f3491f128307938cc56367f739b8fbf9e5d503b6;hp=1cb5fd3e86494cbb77ca91b7ea6db4e36d5c14f8;hpb=e62bb3a4b9633dbd898fca05cc4af3dd0a16e0aa;p=sbcl.git

diff --git a/tests/signals.impure.lisp b/tests/signals.impure.lisp
index 1cb5fd3..093bf23 100644
--- a/tests/signals.impure.lisp
+++ b/tests/signals.impure.lisp
@@ -81,19 +81,3 @@
              (sb-ext:with-timeout 0.1 (sleep 1) t))))
      (sb-ext:timeout ()
        nil))))
-
-(with-test (:name :sleep-many-interrupts)
-  (let ((n 0)
-        (timer nil))
-    (flet ((trip ()
-             (when (< (incf n) 5)
-               (sleep 0.1)
-               (schedule-timer timer 0.1))))
-      (setf timer (make-timer #'trip))
-      (schedule-timer timer 0.1)
-      (let ((start (get-internal-real-time)))
-        (sleep 1.5)
-        (let ((ticks (/ (float (- (get-internal-real-time) start))
-                        internal-time-units-per-second)))
-          (assert (< 1.4 ticks 1.6))
-          (assert (= n 5)))))))