~ chicken-core (chicken-5) /tests/random-tests.scm

 1;;;; random number tests
 2
 3
 4(import (chicken random))
 5
 6(define seed (random-bytes))
 7
 8(define (nums n)
 9  (let loop ((n n))
10    (if (zero? n)
11        '()
12        (cons (pseudo-random-integer 10000)
13              (nums (- n 1))))))
14
15(set-pseudo-random-seed! seed)
16(define n1 (nums 100))
17(set-pseudo-random-seed! seed)
18(assert n1 (nums 100))