dist/Data-Dumper/t/dumper.t: Skip ASCII-centric tests on EBCDIC
authorKarl Williamson <khw@cpan.org>
Thu, 3 Oct 2019 02:54:12 +0000 (20:54 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 9 Oct 2019 16:34:19 +0000 (10:34 -0600)
dist/Data-Dumper/t/dumper.t

index 6a5d147..bb01154 100644 (file)
@@ -1784,9 +1784,15 @@ $WANT = change_glob_expectation(<<'EOT');
 EOT
 {
   local $Data::Dumper::Useqq = 1;
-  TEST (q(Data::Dumper->Dump([\@globs], ["globs"])), 'globs: Dump()');
-  TEST (q(Data::Dumper->Dumpxs([\@globs], ["globs"])), 'globs: Dumpxs()')
-    if $XS;
+  if (ord("A") == 65) {
+    TEST (q(Data::Dumper->Dump([\@globs], ["globs"])), 'globs: Dump()');
+    TEST (q(Data::Dumper->Dumpxs([\@globs], ["globs"])), 'globs: Dumpxs()')
+      if $XS;
+  }
+  else {
+    SKIP_TEST "ASCII-dependent test";
+    SKIP_TEST "ASCII-dependent test";
+  }
 }
 #############
 $WANT = change_glob_expectation(<<'EOT');