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

more info for failing test

Browse Source
This commit is contained in:
Matthew Flatt 2011-12-09 08:01:52 -07:00
parent b5d393d939
commit 1da5b859b7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/iostream.rktl
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)))