From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 7 Mar 2001 22:05:11 +0000 (+0000)
Subject: More UTF-8 test tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8a2fe91fa45a0af1643d661bc54b66f4ad81bf5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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!