This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dist/Data-Dumper/t/dumper.t: Simplify EBCDIC
[perl5.git] / dist / Data-Dumper / t / dumper.t
index 14f92dd..78ff7ec 100644 (file)
@@ -1413,40 +1413,25 @@ EOT
   }
 }
 
-#XXX}
 {
-    if ($Is_ebcdic) {
-       $b = "Bad. XS didn't escape dollar sign";
-############# 322
-       $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc
-#\$VAR1 = '\$b\"\@\\\\\xB1';
-EOT
-        $a = "\$b\"\@\\\xB1\x{100}";
-       chop $a;
-       TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$";
-       if ($XS) {
-           $WANT = <<'EOT'; # While this is "" string written inside "" here doc
-#$VAR1 = "\$b\"\@\\\x{b1}";
-EOT
-            TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$";
-       }
-    } else {
        $b = "Bad. XS didn't escape dollar sign";
 #############
+    # B6 is chosen because it is UTF-8 variant on ASCII and all 3 EBCDIC
+    # platforms that Perl currently purports to work on.  It also is the only
+    # such code point that has the same meaning on all 4, the paragraph sign.
        $WANT = <<"EOT"; # Careful. This is '' string written inside "" here doc
-#\$VAR1 = '\$b\"\@\\\\\xA3';
+#\$VAR1 = '\$b\"\@\\\\\xB6';
 EOT
 
-        $a = "\$b\"\@\\\xA3\x{100}";
+        $a = "\$b\"\@\\\xB6\x{100}";
        chop $a;
        TEST q(Data::Dumper->Dump([$a])), "utf8 flag with \" and \$";
        if ($XS) {
            $WANT = <<'EOT'; # While this is "" string written inside "" here doc
-#$VAR1 = "\$b\"\@\\\x{a3}";
+#$VAR1 = "\$b\"\@\\\x{b6}";
 EOT
             TEST q(Data::Dumper->Dumpxs([$a])), "XS utf8 flag with \" and \$";
        }
-  }
   # XS used to produce "$b\"' which is 4 chars, not 3. [ie wrongly qq(\$b\\\")]
 #############
   $WANT = <<'EOT';