Commit a632f885 authored by pfdietz's avatar pfdietz

Added a test for RANDOM that was failing in sbcl

parent ca519f95
......@@ -82,6 +82,15 @@
collect (list x r))
nil)
(deftest random.8
(let* ((f1 '(lambda (x) (random (if x 10 20))))
(f2 (compile nil f1)))
(values
(loop repeat 100 always (<= 0 (funcall f2 t) 9))
(loop repeat 100 always (<= 0 (funcall f2 nil) 19))))
t t)
;;; Do more statistical tests here
\ No newline at end of file
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