X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Ftr.t;h=eb5c4ca27b1fd02a5acb6b171030cee77207b3d6;hb=94472101973f2669f5034174c504c45df6a04c85;hp=b10f4f24956311ce158be61bf7f0bc50b0ad65a4;hpb=e0a47bd2cb14247750ebc5ca933bb1ba015aa70a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/tr.t b/t/op/tr.t
index b10f4f2..eb5c4ca 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..55\n";
+print "1..57\n";
 
 $_ = "abcdefghijklmnopqrstuvwxyz";
 
@@ -315,3 +315,13 @@ print "ok 54\n";
 print "not " unless $a eq "X";
 print "ok 55\n"; 
 
+# UTF8 range tests from Inaba Hiroto
+
+($a = "\x{200}") =~ tr/\x00-\x{100}/X/c;
+print "not " unless $a eq "X";
+print "ok 56\n";
+
+($a = "\x{200}") =~ tr/\x00-\x{100}/X/cs;
+print "not " unless $a eq "X";
+print "ok 57\n";
+