From 1da5b859b75812b69e87d3711c2aeaabcbac2098 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 9 Dec 2011 08:01:52 -0700 Subject: [PATCH] more info for failing test --- collects/tests/racket/iostream.rktl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/racket/iostream.rktl b/collects/tests/racket/iostream.rktl index 02b9d0a907..5bfe99d79f 100644 --- a/collects/tests/racket/iostream.rktl +++ b/collects/tests/racket/iostream.rktl @@ -64,7 +64,7 @@ (let* ([s (read-bytes 5000 p)] [s2 (read-bytes (if (bytes? s) (bytes-length s) 100) in)]) (unless (equal? s s2) - (error "fast check failed")) + (error 'check-file/fast "failed: ~s vs. ~s" s s2)) (unless (eof-object? s) (loop)))) (close-input-port p)))