From d2c5802bf40280e924d7323d6761431387c9a6f7 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Sun, 9 Oct 2011 03:12:46 +0200 Subject: [PATCH] Remove the invalid :sleep-many-interrupts test --- tests/signals.impure.lisp | 16 ---------------- 1 file changed, 16 deletions(-) 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))))))) -- 1.7.10.4