From 1f3ae3aae670b8cf7e0923cd726eec3b8382b6b0 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Sun, 16 Feb 2014 12:20:23 +0600
Subject: [PATCH] Added test gaussian-random.2 (sbcl only) that demonstrates
 g-r infinite loop bug.

---
 tests.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tests.lisp b/tests.lisp
index 603157b..9eb2454 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))
-- 
GitLab