GitLab

at 2025-01-15T11:52:51-08:00

Actually use random state in the generator

We created a random state to use for generating the test strings, but
we didn't actually use the state with `random`.  Do so now.

   (let ((rs (kernel::make-random-object :state (kernel::init-random-state 27182828))))

     (lisp::codepoints-string

      (loop for k from 0 below 1000

-	   collect (random 256))))

+	   collect (random 256 rs))))

   "Random test string with ISO8859-1 characters")

 (defparameter *test-unicode*

   (let ((rs (kernel::make-random-object :state (kernel::init-random-state 27182828))))

     (lisp::codepoints-string

      (loop for k from 0 below 1000

-	   collect (random 20000))))

+	   collect (random 20000 rs))))

   "Random test string with codepoints below 20000")

Raymond Toy pushed to branch issue-367-count-octets-for-encoding at cmucl / cmucl

Commits:

1 changed file:

Changes: