From f90c2c9b9272717aedbf5bd4057b1054856655aa Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 19 Aug 2010 11:34:43 -0600 Subject: [PATCH] change PLAI test for to print values instead of write them --- collects/plai/test-harness.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/plai/test-harness.rkt b/collects/plai/test-harness.rkt index 8706ab5952..f9eaec3c1b 100644 --- a/collects/plai/test-harness.rkt +++ b/collects/plai/test-harness.rkt @@ -68,7 +68,8 @@ #t)) (set! plai-all-test-results (cons result plai-all-test-results)) (when print? - (write result) (newline)) + (apply printf "(~s ~s ~v ~v ~s)" result) + (newline)) (when (and halt-on-errors? error?) (raise (make-exn:test (string->immutable-string (format "test failed: ~s" result)) (current-continuation-marks))))))