Skip to content

Commit f8cc94d

Browse files
committed
Data-Dumper: fix dumpperl.t for non-XS testing
This is a follow-up to commit b5048e7, which added 'Deparse' support to XS, and commit 9baac1a, which added 'Useqq' support to XS. There are no longer any configuration settings that implicitly force the use of the pure Perl implementation (outside of 'Useperl' itself). Previously, testing without XS available resulted in: t/dumpperl.t .................. 1/31 Undefined subroutine &Data::Dumper::Dumpxs called at .../dist/Data-Dumper/blib/lib/Data/Dumper.pm line 213. # Looks like your test exited with 255 just after 10. t/dumpperl.t .................. Dubious, test returned 255 (wstat 65280, 0xff00) Failed 21/31 subtests ... t/dumpperl.t (Wstat: 65280 (exited 255) Tests: 10 Failed: 0) Non-zero exit status: 255 Parse errors: Bad plan. You planned 31 tests but ran 10.
1 parent 535d2ba commit f8cc94d

File tree

1 file changed

+2
-18
lines changed

1 file changed

+2
-18
lines changed

dist/Data-Dumper/t/dumpperl.t

Lines changed: 2 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@ use warnings;
66

77
use Carp;
88
use Data::Dumper;
9-
use Test::More tests => 31;
9+
use Test::More tests => 11;
1010
use lib qw( ./t/lib );
1111
use Testing qw( _dumptostr );
1212

@@ -20,23 +20,7 @@ $Data::Dumper::Indent=1;
2020
run_tests_for_pure_perl_implementations();
2121
}
2222

23-
{
24-
local $Data::Dumper::Useperl=0;
25-
local $Data::Dumper::Useqq=1;
26-
local $Data::Dumper::Deparse=0;
27-
note('$Data::Dumper::Useqq => 1');
28-
run_tests_for_pure_perl_implementations();
29-
}
30-
31-
{
32-
local $Data::Dumper::Useperl=0;
33-
local $Data::Dumper::Useqq=0;
34-
local $Data::Dumper::Deparse=1;
35-
note('$Data::Dumper::Deparse => 1');
36-
run_tests_for_pure_perl_implementations();
37-
}
38-
39-
23+
4024

4125
sub run_tests_for_pure_perl_implementations {
4226

0 commit comments

Comments
 (0)