This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Slightly better failure output.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 28 Jul 2003 16:19:47 +0000 (16:19 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 28 Jul 2003 16:19:47 +0000 (16:19 +0000)
p4raw-id: //depot/perl@20272

ext/Devel/Peek/t/Peek.t

index 77c468d..8d7189e 100644 (file)
@@ -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;