diff options
author | James E Keenan <jkeenan@cpan.org> | 2013-02-27 20:19:54 -0500 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2013-02-27 20:38:07 -0500 |
commit | 1d6574a40b1239d596352342869235e7f33eaae8 (patch) | |
tree | d8f03b2a1710528aafce6f189b2f8e3c8d6a542a /dist/Data-Dumper/t | |
parent | 2d8edfd19d3ae7a665ce2648c86d00540f61f564 (diff) | |
download | perl-1d6574a40b1239d596352342869235e7f33eaae8.tar.gz |
Loosen the passing requirement for a regex.
RT #116961: Olivier Menguéreported many test failures when installing
Data-Dumper v2.43 on pre-5.16.0 versions of Perl. This patch addresses only
one of those issues by relaxing what is expected in a pattern match:
'42' vs. 42. It doesn't matter for the test in question because what we are
testing is the "annotation" of array elements with their indices.
Diffstat (limited to 'dist/Data-Dumper/t')
-rw-r--r-- | dist/Data-Dumper/t/indent.t | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/dist/Data-Dumper/t/indent.t b/dist/Data-Dumper/t/indent.t index dd736be98c..90a3be0d6d 100644 --- a/dist/Data-Dumper/t/indent.t +++ b/dist/Data-Dumper/t/indent.t @@ -94,17 +94,9 @@ $dumpstr{ar_indent_3} = _dumptostr($dumper); isnt($dumpstr{ar_indent_2}, $dumpstr{ar_indent_3}, "On arrays, Indent(2) is different from Indent(3)"); like($dumpstr{ar_indent_3}, - qr/\#0.+'foo'.+\#1.+'42'/s, + qr/\#0.+'foo'.+\#1.+42/s, "Indent(3) annotates array elements with their indices" ); is(scalar(split("\n" => $dumpstr{ar_indent_2})) + 2, scalar(split("\n" => $dumpstr{ar_indent_3})), "Indent(3) runs 2 lines longer than Indent(2)"); - -__END__ -is($dumpstr{noindent}, $dumpstr{indent_0}, - "absence of Indent is same as Indent(0)"); -isnt($dumpstr{noindent}, $dumpstr{indent_1}, - "absence of Indent is different from Indent(1)"); -print STDERR $dumpstr{indent_0}; -print STDERR $dumpstr{ar_indent_3}; |