From f43114c41f63e6e43e5adf662fa7ac25ea8fcd26 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 31 Jan 2012 15:43:38 -0500 Subject: [PATCH] Include more information in TR optimizer test failures. original commit: 5e7d67ffa7013dffabb3a3fa20142ae359c34063 --- collects/tests/typed-racket/optimizer/run.rkt | 21 +++++++++---------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/collects/tests/typed-racket/optimizer/run.rkt b/collects/tests/typed-racket/optimizer/run.rkt index 208b0113..13fde6ab 100644 --- a/collects/tests/typed-racket/optimizer/run.rkt +++ b/collects/tests/typed-racket/optimizer/run.rkt @@ -27,17 +27,16 @@ (test-suite "Log Comparison" ;; ugly, but otherwise rackunit spews the entire logs to ;; stderr, and they can be quite long - (check-true - (equal? - ;; actual log - (with-input-from-string - (string-append "(" (generate-log name dir) ")") - read) - ;; expected log - (with-input-from-file (build-path dir name) - (lambda () ; from the test file - (read-line) ; skip the #; - (read))))))) + (check-equal? + ;; actual log + (with-input-from-string + (string-append "(" (generate-log name dir) ")") + read) + ;; expected log + (with-input-from-file (build-path dir name) + (lambda () ; from the test file + (read-line) ; skip the #; + (read)))))) (define-runtime-path tests-dir "./tests")