(with-test (:name (:timer :relative)
:fails-on '(and :sparc :linux)
- :skipped-on :win32)
+ :skipped-on :win32)
(let* ((has-run-p nil)
(timer (make-timer (lambda () (setq has-run-p t))
:name "simple timer")))
(with-test (:name (:timer :absolute)
:fails-on '(and :sparc :linux)
- :skipped-on :win32)
+ :skipped-on :win32)
(let* ((has-run-p nil)
(timer (make-timer (lambda () (setq has-run-p t))
:name "simple timer")))
(with-test (:name (:timer :repeat-and-unschedule)
:fails-on '(and :sparc :linux)
- :skipped-on :win32)
+ :skipped-on :win32)
(let* ((run-count 0)
timer)
(setq timer
;;; Used to hang occasionally at least on x86. Two bugs caused it:
;;; running out of stack (due to repeating timers being rescheduled
;;; before they ran) and dying threads were open interrupts.
-(with-test (:name (:timer :parallel-unschedule) :fails-on :ppc :skipped-on '(not :sb-thread) :broken-on '(or :darwin :ppc))
+(with-test (:name (:timer :parallel-unschedule)
+ :skipped-on '(not :sb-thread)
+ :broken-on ':ppc)
(let ((timer (sb-ext:make-timer (lambda () 42) :name "parallel schedulers"))
(other nil))
(flet ((flop ()