From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 14 Oct 2000 17:28:37 +0000 (+0000)
Subject: Test cases for bug id 20000323.056 (the bug seems to be fixed).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8b72f7e28da640539ef4d33ffdf1db08c772d231;p=p5sagit%2Fp5-mst-13.2.git

Test cases for bug id 20000323.056 (the bug seems to be fixed).

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

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 2b208cc..75f6ab3 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..75\n";
+print "1..80\n";
 
 my $test = 1;
 
@@ -374,3 +374,27 @@ sub nok_bytes {
 	$test++;
     }
 }
+
+{
+    use utf8;
+
+    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++;
+}