change PLAI test for to print values instead of write them

2010-08-19 11:34:43 -06:00 · 2010-08-19 11:34:43 -06:00 · f90c2c9b92
commit f90c2c9b92
parent 6f272d2e6a
1 changed files with 2 additions and 1 deletions
--- 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))))))