Avaunt, you foul UTF-8 tests.

p4raw-id: //depot/perl@8005

2 files changed, 26 insertions, 26 deletions

diff --git a/t/op/ver.t b/t/op/ver.t
index 08beced092..edfebd20ff 100755
--- a/t/op/ver.t
+++ b/t/op/ver.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..23\n";
+print "1..28\n";
 
 my $test = 1;
 
@@ -155,3 +155,27 @@ print "ok $test\n";  ++$test;
 	eq '1##10110##11000101##10001101##11100001##10000101##10011100';
     print "ok $test\n";  ++$test;
 }
+
+{
+    # bug id 20000323.056
+
+    print "not " unless "\x{41}" eq +v65;
+    print "ok $test\n";
+    $test++;
+
+    print "not " unless "\x41" eq +v65;
+    print "ok $test\n";
+    $test++;
+
+    print "not " unless "\x{c8}" eq +v200;
+    print "ok $test\n";
+    $test++;
+
+    print "not " unless "\xc8" eq +v200;
+    print "ok $test\n";
+    $test++;
+
+    print "not " unless "\x{221b}" eq v8731;
+    print "ok $test\n";
+    $test++;
+}
diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 660ffef64d..6986720aab 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..95\n";
+print "1..90\n";
 
 my $test = 1;
 
@@ -354,30 +354,6 @@ sub nok_bytes {
 }
 
 {
-    # bug id 20000323.056
-
-    print "not " unless "\x{41}" eq +v65;
-    print "ok $test\n";
-    $test++;
-
-    print "not " unless "\x41" eq +v65;
-    print "ok $test\n";
-    $test++;
-
-    print "not " unless "\x{c8}" eq +v200;
-    print "ok $test\n";
-    $test++;
-
-    print "not " unless "\xc8" eq +v200;
-    print "ok $test\n";
-    $test++;
-
-    print "not " unless "\x{221b}" eq v8731;
-    print "ok $test\n";
-    $test++;
-}
-
-{
     # bug id 20000427.003 
 
     use utf8;