X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Futf8.t;h=03f7a35d3b46aff87bc90ef7397ecb966f0b5b67;hb=aaa68c4a88ea4a62f62819baf4cacc0ca679c5fa;hp=8db3d1a3053d4eb4ef3c978273c8028590571e3c;hpb=3f8b881759d590aaf8acece41144118d426080c3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pragma/utf8.t b/t/pragma/utf8.t
index 8db3d1a..03f7a35 100755
--- a/t/pragma/utf8.t
+++ b/t/pragma/utf8.t
@@ -10,7 +10,7 @@ BEGIN {
     }
 }
 
-print "1..65\n";
+print "1..67\n";
 
 my $test = 1;
 
@@ -289,3 +289,9 @@ sub ok_bytes {
     ok "\x{ab}" =~ /^\x{ab}$/, 1;
     $test++;					# 65
 }
+
+{
+    use utf8;
+    ok_bytes chr(0xe2), pack("C*", 0xc3, 0xa2);
+    $test++;                # 66
+}