Clean up.

original commit: 73140544ce9a5195b032a4c81536ed76788208ee
2011-07-21 11:38:16 -04:00 · 2011-07-21 11:38:16 -04:00 · 5155f0310c
commit 5155f0310c
parent a212f3419e
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