From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 5 Dec 2000 23:13:55 +0000 (+0000)
Subject: Avaunt, you foul UTF-8 tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00387047e0e6654d178e5a9cdcf2128fa41c1aac;p=p5sagit%2Fp5-mst-13.2.git

Avaunt, you foul UTF-8 tests.

p4raw-id: //depot/perl@8005
---

diff --git a/t/op/ver.t b/t/op/ver.t
index 08beced..edfebd2 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 660ffef..6986720 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;