From: Christophe Rhodes Date: Mon, 3 Jun 2013 09:28:02 +0000 (+0100) Subject: some tests of SLEEP with ratios X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=inline;h=13909586f2c9f3397c3a276c7b6f92d62089f9e2;p=sbcl.git some tests of SLEEP with ratios --- 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))))