scolobb
/
dds
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

utils: Set the seed of the random generator in each test case.

This commit is contained in:
Sergiu Ivanov 2020-05-26 22:45:36 +02:00
parent 168b898080
commit 48394daa7a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils.rkt
View File

@ -603,9 +603,6 @@
;;; Randomness
;;; ==========
(module+ test
(random-seed 0))
;;; Generates a stream of inexact random numbers. The meaning of the
;;; arguments is the same as for the function random:
;;;
@ -625,6 +622,7 @@
(module+ test
(test-case "in-random"
(random-seed 0)
(check-equal? (stream->list (stream-take (in-random 100) 10))
'(85 65 20 40 89 45 54 38 26 62))
(check-equal? (stream->list (stream-take (in-random 50 100) 10))