X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftimer.impure.lisp;h=0c8bca3bb0fccfa5e3c487f50177453b2e026ebc;hb=d38be21048d0a9df3add788415fbdddaf9784580;hp=a2028b8aaa55a2f0deccba799d7281a55f96634a;hpb=1fca8fbb946ba06cedf777c3a6927f14d24cfae5;p=sbcl.git

diff --git a/tests/timer.impure.lisp b/tests/timer.impure.lisp
index a2028b8..0c8bca3 100644
--- a/tests/timer.impure.lisp
+++ b/tests/timer.impure.lisp
@@ -17,7 +17,8 @@
   `(handler-case (progn (progn ,@body) nil)
     (sb-ext:timeout () t)))
 
-(with-test (:name (:timer :relative))
+(with-test (:name (:timer :relative)
+            :fails-on '(and :sparc :linux))
   (let* ((has-run-p nil)
          (timer (make-timer (lambda () (setq has-run-p t))
                             :name "simple timer")))
@@ -28,7 +29,8 @@
     (assert has-run-p)
     (assert (zerop (length (sb-impl::%pqueue-contents sb-impl::*schedule*))))))
 
-(with-test (:name (:timer :absolute))
+(with-test (:name (:timer :absolute)
+            :fails-on '(and :sparc :linux))
   (let* ((has-run-p nil)
          (timer (make-timer (lambda () (setq has-run-p t))
                             :name "simple timer")))
@@ -57,7 +59,8 @@
                  :thread t)))
     (schedule-timer timer 0.1)))
 
-(with-test (:name (:timer :repeat-and-unschedule))
+(with-test (:name (:timer :repeat-and-unschedule)
+            :fails-on '(and :sparc :linux))
   (let* ((run-count 0)
          timer)
     (setq timer