More UTF-8 test tweaks.

p4raw-id: //depot/perl@9075

diff --git a/t/op/pat.t b/t/op/pat.t
index 711f9f0..2d86273 100755 (executable)
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -1533,5 +1533,7 @@ print "ok 247\n";
 
        print "not " unless $1 eq "\x{200}\x{300}" && length($1) == 2;
        print "ok 580\n"; 
+    } else {
+       for (576..580) { print "not ok $_\n" }
     }
 }

diff --git a/t/op/split.t b/t/op/split.t
index ce8d64d..3077909 100755 (executable)
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -1,5 +1,10 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 print "1..44\n";
 
 $FS = ':';

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 31d1191..850470e 100755 (executable)
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -3,11 +3,6 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
-    $ENV{PERL5LIB} = '../lib';
-    if ( ord("\t") != 9 ) { # skip on ebcdic platforms
-        print "1..0 # Skip utf8 tests on ebcdic platform.\n";
-        exit;
-    }
 }
 
 # NOTE!