Commit 055adda2 authored by pfdietz's avatar pfdietz

Fixed up two tests that were iterating to char-code-limit. Added randomized...

Fixed up two tests that were iterating to char-code-limit.  Added randomized tests for char-int.2, fixed failure reporting.
parent 9d2c1984
......@@ -263,12 +263,16 @@
(setf (gethash c c->i) i)
(setf (gethash i i->c) c)
t))))))
(and
(loop for i from 0 below char-code-limit
always (%insert (code-char i)))
(every #'%insert +standard-chars+)
(every #'%insert *universe*)
t))))
(or
(loop for i from 0 below (min (ash 1 16) char-code-limit)
unless (%insert (code-char i))
collect i)
(loop for i = (random char-code-limit)
repeat 1000
unless (%insert (code-char i))
collect i)
(find-if-not #'%insert +standard-chars+)
(find-if-not #'%insert *universe*)))))
(defun char-name.1.fn ()
(declare (optimize (safety 3) (speed 1) (space 1)))
......@@ -280,7 +284,7 @@
(and (stringp name)
(eqlt c (name-char name))))))))
(and
(loop for i from 0 below char-code-limit
(loop for i from 0 below (min (ash 1 16) char-code-limit)
always (%check (code-char i)))
(every #'%check +standard-chars+)
(every #'%check *universe*)
......
......@@ -550,7 +550,7 @@
(deftest char-int.2
(char-int.2.fn)
t)
nil)
(deftest char-int.order.1
(let ((i 0))
......
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