This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Data::Dumper/qr.t: Add test names and diagnostics
authorFather Chrysostomos <sprout@cpan.org>
Sat, 4 Feb 2012 06:54:14 +0000 (22:54 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Feb 2012 07:11:07 +0000 (23:11 -0800)
dist/Data-Dumper/t/qr.t

index b838a12..0c9fcf3 100644 (file)
@@ -19,8 +19,8 @@ TODO: {
     use Data::Dumper;
     my $qr = qr{$q};
     eval Dumper $qr;
-    ok(!$@);
+    ok(!$@, "Dumping $qr with XS") or diag $@, Dumper $qr;
     local $Data::Dumper::Useperl = 1;
     eval Dumper $qr;
-    ok(!$@);
+    ok(!$@, "Dumping $qr with PP") or diag $@, Dumper $qr;
 }