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.

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