From 4b9d43ce00a1b37320debc622c4d71dec15c0d6a Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 7 Feb 2013 10:22:49 -0600 Subject: [PATCH] unbreak plai random mutator tests --- collects/tests/plai/test-random-mutator.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/tests/plai/test-random-mutator.rkt b/collects/tests/plai/test-random-mutator.rkt index ec74cfad89..c38c43fd53 100644 --- a/collects/tests/plai/test-random-mutator.rkt +++ b/collects/tests/plai/test-random-mutator.rkt @@ -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))))