Data::Dumper/qr.t: Add test names and diagnostics

diff --git a/dist/Data-Dumper/t/qr.t b/dist/Data-Dumper/t/qr.t
index b838a12..0c9fcf3 100644 (file)
--- a/dist/Data-Dumper/t/qr.t
+++ b/dist/Data-Dumper/t/qr.t
@@ -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;
 }