diff options
| author | Steffen Mueller <smueller@cpan.org> | 2012-08-07 08:45:56 +0200 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2012-08-07 08:45:56 +0200 |
| commit | 55d1a9a4aa623c186c08de96b08b30ec2ea8e8ff (patch) | |
| tree | f3dd3bdc969f92c8250ad47aaa8b88640ccce318 /dist/Data-Dumper | |
| parent | 930a023ad9a27e4317e567e169a00e2002050cf1 (diff) | |
| download | perl-55d1a9a4aa623c186c08de96b08b30ec2ea8e8ff.tar.gz | |
Data::Dumper: Fix tests for pure-Perl implementation
Father Chrysostomos fixed vstring handling in both XS and pure-Perl
implementations of Data::Dumper in
de5ef703c7d8db6517e7d56d9c018d3ad03f210e.
He also updated the tests for the default XS implementation, but it seems
that he missed the test changes necessary for the pure-Perl implementation
which now also does the right thing.
Diffstat (limited to 'dist/Data-Dumper')
| -rw-r--r-- | dist/Data-Dumper/t/dumper.t | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index f75b0177be..a837d6fe7e 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -1488,22 +1488,22 @@ EOT { # If XS cannot load, the pure-Perl version cannot deparse vstrings with # underscores properly. In 5.8.0, vstrings are just strings. - $WANT = $] > 5.0080001 ? $XS ? <<'EOT' : <<'EOV' : <<'EOU'; -#$a = \v65.66.67; -#$b = \v65.66.067; -#$c = \v65.66.6_7; -#$d = \'ABC'; -EOT -#$a = \v65.66.67; -#$b = \v65.66.67; -#$c = \v65.66.67; -#$d = \'ABC'; -EOV + my $no_vstrings = <<'NOVSTRINGS'; #$a = \'ABC'; #$b = \'ABC'; #$c = \'ABC'; #$d = \'ABC'; -EOU +NOVSTRINGS + my $vstrings_corr = <<'VSTRINGS_CORRECT'; +#$a = \v65.66.67; +#$b = \v65.66.067; +#$c = \v65.66.6_7; +#$d = \'ABC'; +VSTRINGS_CORRECT + $WANT = $] <= 5.0080001 + ? $no_vstrings + : $vstrings_corr; + @::_v = ( \v65.66.67, \($] < 5.007 ? v65.66.67 : eval 'v65.66.067'), |