Raymond Toy pushed to branch issue-367-count-octets-for-encoding at cmucl / cmucl Commits: f859892f by Raymond Toy 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. - - - - - 1 changed file: - tests/external-formats.lisp Changes: ===================================== tests/external-formats.lisp ===================================== @@ -9,14 +9,14 @@ (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") View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f859892fe82927e2f8ce5a2f... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f859892fe82927e2f8ce5a2f... You're receiving this email because of your account on gitlab.common-lisp.net.