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"))
(set! write? filename))]
#:args () (void))
(unless global-seed
(set! global-seed (+ 1 (random (expt 2 30)))))
(cond [global-seed]
[(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)
(random-seed global-seed)
(let loop ()