From: Nick Ing-Simmons Date: Mon, 1 Jan 2001 22:48:34 +0000 (+0000) Subject: Integrate mainline X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=82412c94bca696c5f2287e48b586caf822a6d734;p=p5sagit%2Fp5-mst-13.2.git Integrate mainline p4raw-id: //depot/perlio@8294 --- 82412c94bca696c5f2287e48b586caf822a6d734 diff --cc t/lib/encode.t index 890be55,34527d7..280c2d0 --- a/t/lib/encode.t +++ b/t/lib/encode.t @@@ -91,12 -91,3 +91,12 @@@ foreach my $enc_eb (@ebcdic_sets } } +for $i (256,128,129,256) + { + my $c = chr($i); + my $s = "$c\n".sprintf("%02X",$i); - ok(Encode::valid_utf8($s),1,"concat to utf8 botched"); ++ ok(Encode::valid_utf8($s),1,"concat of $i botched"); + Encode::utf8_upgrade($s); - ok(Encode::valid_utf8($s),1,"concat to utf8 botched"); ++ ok(Encode::valid_utf8($s),1,"concat of $i botched"); + } +