ebcdic tweaks for tests from Peter Prymmer

p4raw-id: //depot/perl@4721

diff --git a/t/pragma/warn/doop b/t/pragma/warn/doop
index 961d157..d666950 100644 (file)
--- a/t/pragma/warn/doop
+++ b/t/pragma/warn/doop
@@ -12,6 +12,12 @@ EXPECT
 Malformed UTF-8 character at - line 4.
 ########
 # doop.c
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# Character codes differ on ebcdic machines.";
+        exit 0;
+    }
+}
 use warnings 'utf8'  ;
 use utf8 ;
 $_ = "\x80  \xff" ;

diff --git a/t/pragma/warn/pp b/t/pragma/warn/pp
index ea85912..227c97c 100644 (file)
--- a/t/pragma/warn/pp
+++ b/t/pragma/warn/pp
@@ -112,6 +112,12 @@ EXPECT
 Malformed UTF-8 character at - line 4.
 ########
 # pp.c
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# Character codes differ on ebcdic machines.";
+        exit 0;
+    }
+}
 use warnings 'utf8'  ;
 use utf8 ;
 $_ = "\x80  \xff" ;

diff --git a/t/pragma/warn/regcomp b/t/pragma/warn/regcomp
index 1bdc4a9..581b84a 100644 (file)
--- a/t/pragma/warn/regcomp
+++ b/t/pragma/warn/regcomp
@@ -114,6 +114,12 @@ EXPECT
 /[[:digit:]-[:alpha:]]/: false [] range "[:digit:]-" in regexp at - line 12.
 ########
 # regcomp.c [S_regclassutf8]
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# ebcdic regular expression ranges differ.";
+        exit 0;
+    }
+}
 use utf8;
 $_ = "";
 use warnings 'unsafe' ;

diff --git a/t/pragma/warn/sv b/t/pragma/warn/sv
index d9de3b6..8208030 100644 (file)
--- a/t/pragma/warn/sv
+++ b/t/pragma/warn/sv
@@ -269,6 +269,12 @@ EXPECT
 Undefined value assigned to typeglob at - line 3.
 ########
 # sv.c
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# ebcdic \\x characters differ.";
+        exit 0;
+    }
+}
 use utf8 ;
 $^W =0 ;
 {

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index ee02efa..cfffa37 100644 (file)
--- a/t/pragma/warn/toke
+++ b/t/pragma/warn/toke
@@ -462,6 +462,12 @@ EXPECT
 
 ########
 # toke.c
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# Ebcdic platforms have different \\x constructs.";
+        exit 0;
+    }
+}
 use warnings 'utf8' ;
 use utf8 ;
 $_ = " \xffe " ;

diff --git a/t/pragma/warn/utf8 b/t/pragma/warn/utf8
index b11514d..1faa80c 100644 (file)
--- a/t/pragma/warn/utf8
+++ b/t/pragma/warn/utf8
@@ -22,6 +22,12 @@ EXPECT
 Malformed UTF-8 character at - line 3.
 ########
 # utf8.c [utf8_to_uv]
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# Ebcdic platforms have different \\x constructs.";
+        exit 0;
+    }
+}
 use utf8 ;
 my $a = ord "\x80" ;
 {
@@ -42,6 +48,12 @@ EXPECT
 Malformed UTF-8 character at - line 3.
 ########
 # utf8.c [utf8_to_uv]
+BEGIN {
+    if (ord("\t") == 5) {
+        print "SKIPPED\n# Ebcdic platforms have different \\x constructs.";
+        exit 0;
+    }
+}
 use utf8 ;
 my $a = ord "\xf080" ;
 {