From 0938ae8e33c9dbb3381629e2d770345a43eb1f28 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 4 Jun 2020 10:52:09 -0400 Subject: [PATCH] Print random state in datum-intern stress test. --- pkgs/racket-test/tests/racket/stress/datum-intern.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/pkgs/racket-test/tests/racket/stress/datum-intern.rkt b/pkgs/racket-test/tests/racket/stress/datum-intern.rkt index 7de94e83b3..66fbe34806 100644 --- a/pkgs/racket-test/tests/racket/stress/datum-intern.rkt +++ b/pkgs/racket-test/tests/racket/stress/datum-intern.rkt @@ -14,5 +14,6 @@ (error 'check "didn't find non-growing iteration")) (loop (add1 tries))))) +(pseudo-random-generator->vector (current-pseudo-random-generator)) (check "strings" (lambda (i j) (format "string-~a-~a" i j))) (check "flonums" (lambda (i j) (random)))