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

unbreak plai random mutator tests

Browse Source
This commit is contained in:
Robby Findler 2013-02-07 10:22:49 -06:00
parent 86b1f276eb
commit 4b9d43ce00
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/tests/plai/test-random-mutator.rkt
View File

@ -1,7 +1,9 @@
#lang scheme #lang racket/base
(require rackunit (require rackunit
plai/random-mutator plai/random-mutator
scheme/runtime-path racket/runtime-path
racket/file
racket/pretty
;; test find-heap-values and save-random-mutator via the contract'd ;; test find-heap-values and save-random-mutator via the contract'd
;; interface, just in case they break their contracts ;; interface, just in case they break their contracts
(except-in plai/private/random-mutator find-heap-values save-random-mutator)) (except-in plai/private/random-mutator find-heap-values save-random-mutator))
@ -20,14 +22,14 @@
(λ (port) (λ (port)
(fprintf port "#lang plai/mutator\n") (fprintf port "#lang plai/mutator\n")
(fprintf port "~s\n" `(allocator-setup tests/plai/gc/good-collectors/good-collector 100)) (fprintf port "~s\n" `(allocator-setup tests/plai/gc/good-collectors/good-collector 100))
(for-each (λ (exp) (pretty-print exp port)) exps)) (for-each (λ (exp) (pretty-write exp port)) exps))
#:exists 'truncate) #:exists 'truncate)
(let ([sp (open-output-string)]) (let ([sp (open-output-string)])
(parameterize ([current-output-port sp]) (parameterize ([current-output-port sp])
(dynamic-require tmpfile #f)) (dynamic-require tmpfile #f))
(delete-file tmpfile) (delete-file tmpfile)
(and (regexp-match #rx"Value at location [0-9]+:\npassed\n" (and (regexp-match #rx"Value at location [0-9]+:\n'passed\n"
(get-output-string sp)) (get-output-string sp))
#t)))) #t))))