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

p4raw-id: //depot/perl@7231

1 files changed, 25 insertions, 1 deletions

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 2b208cc167..75f6ab3a7f 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++;
+}