From e53492a68f5bdea335feb238bcc6e06993e900d3 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sun, 11 Oct 2015 10:55:36 -0400 Subject: [PATCH] Support environment variable for setting global seed. --- pkgs/racket-test/tests/racket/stress/fuzz.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-test/tests/racket/stress/fuzz.rkt b/pkgs/racket-test/tests/racket/stress/fuzz.rkt index fc7c706939..e9b42ee488 100644 --- a/pkgs/racket-test/tests/racket/stress/fuzz.rkt +++ b/pkgs/racket-test/tests/racket/stress/fuzz.rkt @@ -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 ()