diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-02-03 22:45:38 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-02-03 23:11:06 -0800 |
| commit | 84386201a46ee800a17acc907193d00d08d3abd1 (patch) | |
| tree | 17efa9edf1f1b1dd8e3335398269f38b0bd5e169 /dist/Data-Dumper | |
| parent | d0e8c625b6f9f9d24bb26d9aca46e88e43df24bd (diff) | |
| download | perl-84386201a46ee800a17acc907193d00d08d3abd1.tar.gz | |
Data::Dumper: qr.t: Add a pure-Perl TODO test
Diffstat (limited to 'dist/Data-Dumper')
| -rw-r--r-- | dist/Data-Dumper/t/qr.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/dist/Data-Dumper/t/qr.t b/dist/Data-Dumper/t/qr.t index f1a879d33b..b838a122f2 100644 --- a/dist/Data-Dumper/t/qr.t +++ b/dist/Data-Dumper/t/qr.t @@ -10,7 +10,7 @@ BEGIN { } use strict; -use Test::More tests => 1; +use Test::More tests => 2; use Data::Dumper; TODO: { @@ -20,4 +20,7 @@ TODO: { my $qr = qr{$q}; eval Dumper $qr; ok(!$@); + local $Data::Dumper::Useperl = 1; + eval Dumper $qr; + ok(!$@); } |