suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Include more information in TR optimizer test failures.

Browse Source 
original commit: 5e7d67ffa7013dffabb3a3fa20142ae359c34063
This commit is contained in:
Vincent St-Amour 2012-01-31 15:43:38 -05:00
parent 2051b79030
commit f43114c41f
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/tests/typed-racket/optimizer/run.rkt
View File

@ -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")