suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't eval in fuzz tester.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2018-03-10 21:16:16 -05:00
parent 0a00e82ca1
commit 2195efa08d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-test/tests/racket/stress/fuzz.rkt
View File

@ -7,7 +7,7 @@
(define val (bytes-ref bs byte))
(bytes-set! bs byte (bitwise-xor (expt 2 bit) val)))
(define (run-bytes bs)
(define (read-bytes bs)
(sync
(parameterize ([current-custodian (make-custodian)])
(thread
@ -15,8 +15,8 @@
(custodian-limit-memory (current-custodian)
(* 512 (expt 2 20)))
(with-handlers ([void void])
(eval (parameterize ([read-accept-compiled #t])
(with-input-from-bytes bs read)))))))))
(parameterize ([read-accept-compiled #t])
(with-input-from-bytes bs read))))))))
(define (run-file fname seed0 #:write? [out-fname? #f])
(define seed (or seed0 (+ 1 (random (expt 2 30)))))
@ -33,7 +33,7 @@
(call-with-output-file (build-path (current-directory) out-fname?)
(lambda (o)
(write-bytes bs o))))
(run-bytes bs))))
(read-bytes bs))))
(define (go)
(let ([seed0 #f] [file #f] [dir #f] [forever? #f] [global-seed #f] [write? #f])