Data::Dumper: Fix tests for pure-Perl implementation
authorSteffen Mueller <smueller@cpan.org>
Tue, 7 Aug 2012 06:45:56 +0000 (08:45 +0200)
committerSteffen Mueller <smueller@cpan.org>
Tue, 7 Aug 2012 06:45:56 +0000 (08:45 +0200)
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.

dist/Data-Dumper/t/dumper.t

index f75b017..a837d6f 100644 (file)
@@ -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'),