more info for failing test

This commit is contained in:
Matthew Flatt 2011-12-09 08:01:52 -07:00
parent b5d393d939
commit 1da5b859b7

View File

@ -64,7 +64,7 @@
(let* ([s (read-bytes 5000 p)] (let* ([s (read-bytes 5000 p)]
[s2 (read-bytes (if (bytes? s) (bytes-length s) 100) in)]) [s2 (read-bytes (if (bytes? s) (bytes-length s) 100) in)])
(unless (equal? s s2) (unless (equal? s s2)
(error "fast check failed")) (error 'check-file/fast "failed: ~s vs. ~s" s s2))
(unless (eof-object? s) (unless (eof-object? s)
(loop)))) (loop))))
(close-input-port p))) (close-input-port p)))