From dcd3f9a9aa907fbc95cf2a93fb415f6b900eabe7 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 21 Oct 2010 23:32:43 -0700 Subject: [PATCH] Flush output in fuzz testing. --- collects/meta/props | 2 +- collects/tests/stress/fuzz.rkt | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/meta/props b/collects/meta/props index 0f73c86487..89d8369773 100755 --- a/collects/meta/props +++ b/collects/meta/props @@ -1894,7 +1894,7 @@ path/s is either such a string or a list of them. "collects/tests/stepper/universe-test.rkt" drdr:command-line (mzc *) "collects/tests/stepper/world-test.rktl" drdr:command-line #f "collects/tests/stepper/write-display.rktl" drdr:command-line #f -"collects/tests/stress/fuzz.rkt" responsible (samth mflatt) drdr:command-line (racket "-t" * "--" "-c") +"collects/tests/stress/fuzz.rkt" responsible (samth mflatt) drdr:command-line (racket "-t" * "--" "-c") drdr:random #t "collects/tests/stress.rkt" responsible (jay) "collects/tests/stxparse" responsible (ryanc) "collects/tests/stxparse/stxclass.rkt" drdr:command-line (gracket-text "-t" *) diff --git a/collects/tests/stress/fuzz.rkt b/collects/tests/stress/fuzz.rkt index 3e728beee7..ad88974e1c 100644 --- a/collects/tests/stress/fuzz.rkt +++ b/collects/tests/stress/fuzz.rkt @@ -22,10 +22,11 @@ (define (run fname [seed (or sd (+ 1 (random (expt 2 30))))]) (printf "DrDr Ignore! random-seed ~s\n" seed) + (printf "name: ~a\n" fname) + (flush-output) (random-seed seed) (define bs (file->bytes fname)) (define len (* 8 (bytes-length bs))) - (printf "name: ~a\n" fname) (for ([i (in-range (quotient len 10000))]) (flip-file bs (random len))) (with-handlers ([void void])