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
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
;; interface, just in case they break their contracts
(except-in plai/private/random-mutator find-heap-values save-random-mutator))
@ -20,14 +22,14 @@
(λ (port)
(fprintf port "#lang plai/mutator\n")
(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)
(let ([sp (open-output-string)])
(parameterize ([current-output-port sp])
(dynamic-require tmpfile #f))
(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))
#t))))