suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Support environment variable for setting global seed.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-10-11 10:55:36 -04:00
parent 20f31fb742
commit e53492a68f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-test/tests/racket/stress/fuzz.rkt
View File

@ -51,8 +51,9 @@
(error "--write requires -f")) (error "--write requires -f"))
(set! write? filename))] (set! write? filename))]
#:args () (void)) #:args () (void))
(unless global-seed (cond [global-seed]
(set! global-seed (+ 1 (random (expt 2 30))))) [(getenv "RACKET_FUZZ_GLOBAL_SEED") => (lambda (v) (set! global-seed (string->number v)))]
[else (set! global-seed (+ 1 (random (expt 2 30))))])
(printf "Global seed: ~a\n" global-seed) (printf "Global seed: ~a\n" global-seed)
(random-seed global-seed) (random-seed global-seed)
(let loop () (let loop ()