From: Jarkko Hietaniemi Date: Thu, 3 Jul 2003 13:57:47 +0000 (+0000) Subject: Extra light testing for the UTF-8 cache X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54f923ef6f478d1abc56049614d56e8a36625e1b;p=p5sagit%2Fp5-mst-13.2.git Extra light testing for the UTF-8 cache (that it isn't broken, not that it helps). p4raw-id: //depot/perl@19961 --- diff --git a/t/op/length.t b/t/op/length.t index d1cfda1..0c44484 100644 --- a/t/op/length.t +++ b/t/op/length.t @@ -5,7 +5,7 @@ BEGIN { @INC = '../lib'; } -print "1..15\n"; +print "1..20\n"; print "not " unless length("") == 0; print "ok 1\n"; @@ -133,3 +133,18 @@ print "ok 3\n"; print "ok 15\n"; $test++; } + +{ + # Play around with Unicode strings, + # give a little workout to the UTF-8 length cache. + my $a = chr(256) x 100; + print length $a == 100 ? "ok 16\n" : "not ok 16\n"; + chop $a; + print length $a == 99 ? "ok 17\n" : "not ok 17\n"; + $a .= $a; + print length $a == 198 ? "ok 18\n" : "not ok 18\n"; + $a = chr(256) x 999; + print length $a == 999 ? "ok 19\n" : "not ok 19\n"; + substr($a, 0, 1) = ''; + print length $a == 998 ? "ok 20\n" : "not ok 20\n"; +}