diff --git a/tests.lisp b/tests.lisp index 603157b093e4a66613b366d206eb4bdadb0af67c..9eb24541031aa7e363b2723f7fca86e13f01358a 100644 --- a/tests.lisp +++ b/tests.lisp @@ -913,6 +913,19 @@ t t) +#+sbcl +(deftest gaussian-random.2 + (handler-case + (sb-ext:with-timeout 2 + (progn + (loop + :repeat 10000 + :do (gaussian-random 0 nil)) + 'done)) + (sb-ext:timeout () + 'timed-out)) + 'done) + (deftest iota.1 (iota 3) (0 1 2))