diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-28 16:19:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-28 16:19:47 +0000 |
| commit | dc3aa7ec6d72bea8c3f0e15719e6077419ed2c93 (patch) | |
| tree | 25b6650142a9a1ecae404f6fd9cad9d109db6bff /ext/Devel | |
| parent | 64ab403f2853337ad40d5e73af4fcfd6fccb449b (diff) | |
| download | perl-dc3aa7ec6d72bea8c3f0e15719e6077419ed2c93.tar.gz | |
Slightly better failure output.
p4raw-id: //depot/perl@20272
Diffstat (limited to 'ext/Devel')
| -rw-r--r-- | ext/Devel/Peek/t/Peek.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Devel/Peek/t/Peek.t b/ext/Devel/Peek/t/Peek.t index 77c468d252..8d7189ef6a 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; |