This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/warnings/regcomp: SKIP some EBCDIC tests
authorKarl Williamson <khw@cpan.org>
Sun, 26 Oct 2014 03:26:20 +0000 (21:26 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 6 Mar 2015 04:48:27 +0000 (21:48 -0700)
The result varies depending on EBCDIC code page

t/lib/warnings/regcomp

index f62f5f1..b9943a0 100644 (file)
@@ -21,6 +21,12 @@ Non-octal character '8'.  Resolved as "\o{123}" at - line 3.
 Non-octal character '8'.  Resolved as "\o{654}" at - line 4.
 ########
 # regcomp.c.c
+BEGIN {
+    if (ord('A') == 193) {
+        print "SKIPPED\n# Different results on EBCDIC";
+        exit 0;
+    }
+}
 use warnings;
 $a = qr/\c,/;
 $a = qr/[\c,]/;
@@ -28,5 +34,5 @@ no warnings 'syntax';
 $a = qr/\c,/;
 $a = qr/[\c,]/;
 EXPECT
-"\c," is more clearly written simply as "l" at - line 3.
-"\c," is more clearly written simply as "l" at - line 4.
+"\c," is more clearly written simply as "l" at - line 9.
+"\c," is more clearly written simply as "l" at - line 10.