From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Jul 2003 16:19:47 +0000 (+0000)
Subject: Slightly better failure output.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc3aa7ec6d72bea8c3f0e15719e6077419ed2c93;p=p5sagit%2Fp5-mst-13.2.git

Slightly better failure output.

p4raw-id: //depot/perl@20272
---

diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t
index 77c468d..8d7189e 100644
--- a/ext/Devel/Peek/t/Peek.t
+++ b/ext/Devel/Peek/t/Peek.t
@@ -31,7 +31,8 @@ sub do_test {
 	    print $pattern, "\n" if $DEBUG;
 	    my $dump = <IN>;
 	    print $dump, "\n"    if $DEBUG;
-	    print "[$dump] vs [$pattern]\nnot " unless $dump =~ /\A$pattern\Z/ms;
+	    print "got:\n[\n$dump\n]\nexpected:\n[\n$pattern\n]\nnot "
+		unless $dump =~ /\A$pattern\Z/ms;
 	    print "ok $_[0]\n";
 	    close(IN);
             return $1;