Start migrating bits of pragma/utf8 to elsewhere

(since the long term plan is to obsolete 'use utf8').

p4raw-id: //depot/perl@7995

1 files changed, 1 insertions, 70 deletions

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 60cbd8c97a..3d8693efc0 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..191\n";
+print "1..181\n";
 
 my $test = 1;
 
@@ -734,72 +734,3 @@ __EOMK__
     }
 }
 
-{
-    # tests 182..191
-
-    {
-	my $a = "\x{41}";
-
-	print "not " unless length($a) == 1;
-	print "ok $test\n";
-	$test++;
-
-	use bytes;
-	print "not " unless $a eq "\x41" && length($a) == 1;
-	print "ok $test\n";
-	$test++;
-    }
-
-    {
-	my $a = "\x{80}";
-
-	print "not " unless length($a) == 1;
-	print "ok $test\n";
-	$test++;
-
-	use bytes;
-	print "not " unless $a eq "\xc2\x80" && length($a) == 2;
-	print "ok $test\n";
-	$test++;
-    }
-
-    {
-	my $a = "\x{100}";
-
-	print "not " unless length($a) == 1;
-	print "ok $test\n";
-	$test++;
-
-	use bytes;
-	print "not " unless $a eq "\xc4\x80" && length($a) == 2;
-	print "ok $test\n";
-	$test++;
-    }
-
-    {
-	my $a = "\x{100}\x{80}";
-
-	print "not " unless length($a) == 2;
-	print "ok $test\n";
-	$test++;
-
-	use bytes;
-	print "not " unless $a eq "\xc4\x80\xc2\x80" && length($a) == 4;
-	print "ok $test\n";
-	$test++;
-    }
-
-    {
-	my $a = "\x{80}\x{100}";
-
-	print "not " unless length($a) == 2;
-	print "ok $test\n";
-	$test++;
-
-	use bytes;
-	print "not " unless $a eq "\xc2\x80\xc4\x80" && length($a) == 4;
-	print "ok $test\n";
-	$test++;
-    }
-}
-