From c3d1c9967f078edf142d98f33fabde5f69f798ff Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 Aug 2015 07:25:35 -0600 Subject: [PATCH] extra output on failure for `tests/compiler/zo` --- compiler-test/tests/compiler/zo.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler-test/tests/compiler/zo.rkt b/compiler-test/tests/compiler/zo.rkt index 67f2bfa486..c53f806773 100644 --- a/compiler-test/tests/compiler/zo.rkt +++ b/compiler-test/tests/compiler/zo.rkt @@ -76,7 +76,9 @@ (let ([o (open-output-bytes)]) (print p o) (get-output-string o)))]) - (unless (equal? (to-string p) (to-string p2)) - (error 'zo "failed on example: ~e" ex-mod)))))))) + (define s1 (to-string p)) + (define s2 (to-string p2)) + (unless (equal? s1 s2) + (error 'zo "failed on example: ~e\n~s\n~s" ex-mod s1 s2)))))))) (for-each check (list ex-mod1 ex-mod2 ex-mod3 ex-mod4 ex-mod5))