This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
XS-APItest/t/svpeek.t: Skip ASCII-centric test on EBCDIC
authorKarl Williamson <khw@cpan.org>
Mon, 31 Aug 2015 23:36:16 +0000 (17:36 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 4 Sep 2015 01:26:28 +0000 (19:26 -0600)
ext/XS-APItest/t/svpeek.t

index 6c83005..25eb234 100644 (file)
@@ -69,9 +69,12 @@ if ($^O eq 'vos') {
   $VAR = "\xdf";    # \xdf works for both ASCII and EBCDIC
   is (DPeek ($VAR),    'PVIV("\337"\0)',       ' $VAR "\xdf"');
   is (DPeek (\$VAR),   '\PVIV("\337"\0)',      '\$VAR "\xdf"');
-  $VAR = "a\x0a\x{20ac}";
-  is (DPeek ($VAR), 'PVIV("a\n\342\202\254"\0) [UTF8 "a\n\x{20ac}"]',
+  SKIP: {
+    skip("ASCII-centric tests", 1) if ord "A" == 193;
+    $VAR = "a\x0a\x{20ac}";
+    is (DPeek ($VAR), 'PVIV("a\n\342\202\254"\0) [UTF8 "a\n\x{20ac}"]',
                                        ' $VAR "a\x0a\x{20ac}"');
+  }
   $VAR = sub { "VAR" };
   is (DPeek ($VAR),    '\CV(__ANON__)',        ' $VAR sub { "VAR" }');
   is (DPeek (\$VAR),   '\\\CV(__ANON__)',      '\$VAR sub { "VAR" }');