Update to asdf 2.23

[sbcl.git] / tests / signals.impure.lisp

diff --git a/tests/signals.impure.lisp b/tests/signals.impure.lisp
index 1cb5fd3..ea6e895 100644 (file)
--- a/tests/signals.impure.lisp
+++ b/tests/signals.impure.lisp
@@ -13,7 +13,7 @@
 
 (use-package :test-util)
 
-(with-test (:name (:async-unwind :specials))
+(with-test (:name (:async-unwind :specials) :fails-on :win32)
   (let ((*x0* nil) (*x1* nil) (*x2* nil) (*x3* nil) (*x4* nil))
     (declare (special *x0* *x1* *x2* *x3* *x4*))
     (loop repeat 10 do
@@ -38,7 +38,7 @@
 
 (require :sb-posix)
 
-(with-test (:name (:signal :errno))
+(with-test (:name (:signal :errno) :fails-on :win32)
   (let* (saved-errno
          (returning nil)
          (timer (make-timer (lambda ()
@@ -57,7 +57,7 @@
     (loop repeat 1000000000)
     (assert (= saved-errno (sb-unix::get-errno)))))
 
-(with-test (:name :handle-interactive-interrupt)
+(with-test (:name :handle-interactive-interrupt :fails-on :win32)
   (assert (eq :condition
               (handler-case
                   (sb-thread::kill-safely
@@ -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)))))))