diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-02-03 22:54:14 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-02-03 23:11:07 -0800 |
| commit | c7b471646052d1b08a60bd3f2283483be3126b58 (patch) | |
| tree | 66aaa8a124a5a4730c1ab65410280c2737b79a39 /dist | |
| parent | 84386201a46ee800a17acc907193d00d08d3abd1 (diff) | |
| download | perl-c7b471646052d1b08a60bd3f2283483be3126b58.tar.gz | |
Data::Dumper/qr.t: Add test names and diagnostics
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Data-Dumper/t/qr.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dist/Data-Dumper/t/qr.t b/dist/Data-Dumper/t/qr.t index b838a122f2..0c9fcf39d6 100644 --- 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; } |