Print random state in datum-intern stress test.

2020-06-04 10:52:09 -04:00 · 2020-06-04 10:52:09 -04:00 · 0938ae8e33
commit 0938ae8e33
parent 31c5644cf5
1 changed files with 1 additions and 0 deletions
--- 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)))