Clean up.

2011-07-21 11:38:16 -04:00 · 2011-07-21 11:38:16 -04:00 · 73140544ce
commit 73140544ce
parent b068e4a53b
1 changed files with 3 additions and 4 deletions
--- 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