18 lines
666 B
Plaintext
18 lines
666 B
Plaintext
$OpenBSD: patch-tests_timer_impure_lisp,v 1.1 2009/11/17 10:45:00 pirofti Exp $
|
|
|
|
The timer scheduler seems to only run one timer per SIGALRM and
|
|
OpenBSD only delivers ~50 SIGALRMs per second, so it takes ~5 secs to
|
|
trigger 200 timers.
|
|
|
|
--- tests/timer.impure.lisp.orig Mon Apr 6 01:54:27 2009
|
|
+++ tests/timer.impure.lisp Thu Jun 4 07:31:02 2009
|
|
@@ -159,7 +159,7 @@
|
|
(let ((time (1+ (get-universal-time))))
|
|
(loop repeat 200 do
|
|
(schedule-timer (make-timer (lambda ())) time :absolute-p t))
|
|
- (sleep 2)
|
|
+ (sleep 6)
|
|
(assert (zerop (length (sb-impl::%pqueue-contents sb-impl::*schedule*))))))
|
|
|
|
(with-test (:name (:with-timeout :timeout))
|