t/lib/warnings/toke: Skip some tests on EBCDIC

The results depends on the particular EBCDIC platform being used, so I
don't think it is worth the effort.

diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
index 4e15f75..5d31104 100644 (file)
--- a/t/lib/warnings/toke
+++ b/t/lib/warnings/toke
@@ -1355,6 +1355,12 @@ syntax error at - line 3, near "=~ ?"
 Execution of - aborted due to compilation errors.
 ########
 # toke.c
+BEGIN {
+    if (ord('A') == 193) {
+        print "SKIPPED\n# result varies depending on which ebcdic platform";
+        exit 0;
+    }
+}
 use warnings;
 $a = "\c,";
 $a = "\c`";
@@ -1362,8 +1368,8 @@ no warnings 'syntax';
 $a = "\c,";
 $a = "\c`";
 EXPECT
-"\c," is more clearly written simply as "l" at - line 3.
-"\c`" is more clearly written simply as "\ " at - line 4.
+"\c," is more clearly written simply as "l" at - line 9.
+"\c`" is more clearly written simply as "\ " at - line 10.
 ########
 # toke.c
 BEGIN {