From: Christophe R. <cr...@us...> - 2013-06-03 09:28:24
|
The branch "master" has been updated in SBCL: via 13909586f2c9f3397c3a276c7b6f92d62089f9e2 (commit) from eb90b28e77fe78baebf3105a600a97969acfd995 (commit) - Log ----------------------------------------------------------------- commit 13909586f2c9f3397c3a276c7b6f92d62089f9e2 Author: Christophe Rhodes <cs...@ca...> Date: Mon Jun 3 10:28:02 2013 +0100 some tests of SLEEP with ratios --- tests/interface.pure.lisp | 16 ++++++++++++++++ 1 files changed, 16 insertions(+), 0 deletions(-) diff --git a/tests/interface.pure.lisp b/tests/interface.pure.lisp index 74ce1e0..8a4d2fd 100644 --- a/tests/interface.pure.lisp +++ b/tests/interface.pure.lisp @@ -135,3 +135,19 @@ (disassemble (lambda (x y) (= (the (complex single-float) x) (the (complex single-float) y))))) + +;;; Check that SLEEP called with ratios (with no common factors with +;;; 1000000000, and smaller than 1/1000000000) works more or less as +;;; expected. +(with-test (:name :sleep-ratios) + (let ((fun0a (compile nil '(lambda () (sleep 1/7)))) + (fun0b (compile nil '(lambda () (sleep 1/100000000000000000000000000)))) + (fun1 (compile nil '(lambda (x) (sleep x)))) + (start-time (get-universal-time))) + (sleep 1/7) + (sleep 1/100000000000000000000000000) + (funcall fun0a) + (funcall fun0b) + (funcall fun1 1/7) + (funcall fun1 1/100000000000000000000000000) + (assert (< (- (get-universal-time) start-time) 2)))) ----------------------------------------------------------------------- hooks/post-receive -- SBCL |