From 5155f0310ccb3112f454fd9979b4f58ae7d7e2dd Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 21 Jul 2011 11:38:16 -0400 Subject: [PATCH] Clean up. original commit: 73140544ce9a5195b032a4c81536ed76788208ee --- collects/tests/typed-scheme/optimizer/run.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt index 17e85be4..d9060929 100644 --- a/collects/tests/typed-scheme/optimizer/run.rkt +++ b/collects/tests/typed-scheme/optimizer/run.rkt @@ -25,10 +25,9 @@ ;; the optimizations we expected did indeed happen (define (compare-logs name dir) (test-suite "Log Comparison" - (check-equal? - ;; ugly, but otherwise rackunit spews the entire logs to - ;; stderr, and they can be quite long - #t + ;; 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