This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Peek.t: better identify failing tests
authorDavid Mitchell <davem@iabyn.com>
Thu, 29 Jul 2010 18:37:16 +0000 (19:37 +0100)
committerDavid Mitchell <davem@iabyn.com>
Thu, 29 Jul 2010 18:37:16 +0000 (19:37 +0100)
ext/Devel-Peek/t/Peek.t

index 83e365a..4e39d10 100644 (file)
@@ -76,7 +76,9 @@ sub do_test {
            print $pattern, "\n" if $DEBUG;
            my ($dump, $dump2) = split m/\*\*\*\*\*\n/, scalar <IN>;
            print $dump, "\n"    if $DEBUG;
-           like( $dump, qr/\A$pattern\Z/ms );
+           like( $dump, qr/\A$pattern\Z/ms,
+               "test id $_[0], line " . (caller)[2]);
+
 
             local $TODO = $repeat_todo;
             is($dump2, $dump);