Commit 1f3ae3aa authored by Attila Lendvai's avatar Attila Lendvai

Added test gaussian-random.2 (sbcl only) that demonstrates g-r infinite loop bug.

parent 2b1eb406
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment