summaryrefslogtreecommitdiff
path: root/dist/Data-Dumper/t
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2013-02-27 20:19:54 -0500
committerJames E Keenan <jkeenan@cpan.org>2013-02-27 20:38:07 -0500
commit1d6574a40b1239d596352342869235e7f33eaae8 (patch)
treed8f03b2a1710528aafce6f189b2f8e3c8d6a542a /dist/Data-Dumper/t
parent2d8edfd19d3ae7a665ce2648c86d00540f61f564 (diff)
downloadperl-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.t10
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};