Change 18823: Try to give rcatline() a good jog on Unicode.

[Jarkko Hietaniemi]

Change 18823 by [EMAIL PROTECTED] on 2003/03/04 05:33:50

        Try to give rcatline() a good jog on Unicode.

Affected files ...

... //depot/perl/t/io/utf8.t#28 edit

Differences ...

==== //depot/perl/t/io/utf8.t#28 (xtext) ====
Index: perl/t/io/utf8.t
--- perl/t/io/utf8.t#27~18822~  Mon Mar  3 21:14:13 2003
+++ perl/t/io/utf8.t    Mon Mar  3 21:33:50 2003
@@ -12,7 +12,7 @@
 no utf8; # needed for use utf8 not griping about the raw octets
 
 $| = 1;
-print "1..33\n";
+print "1..49\n";
 
 open(F,"+>:utf8",'a');
 print F chr(0x100).'�';
@@ -293,6 +293,36 @@
     print $b eq chr(0xde).chr(0x100) ? "ok 33" : "not ok 33";
     print " \#21395 '.= <>' bytes vs. utf8\n";
     close F;
+}
+
+{
+    my @a = ( [ 0x007F, "bytes" ],
+             [ 0x0080, "bytes" ],
+             [ 0x0080, "utf8"  ],
+             [ 0x0100, "utf8"  ] );
+    my $t = 34;
+    for my $u (@a) {
+       for my $v (@a) {
+           # print "# @$u - @$v\n";
+           open F, ">a";
+           binmode(F, ":" . $u->[1]);
+           print F chr($u->[0]);
+           close F;
+
+           open F, "<a";
+           binmode(F, ":" . $u->[1]);
+
+           my $s = chr($v->[0]);
+           utf8::upgrade($s) if $v->[1] eq "utf8";
+
+           $s .= <F>;
+           print $s eq chr($v->[0]) . chr($u->[0]) ?
+               "ok $t # rcatline utf8\n" : "not ok $t # rcatline utf8\n";
+           close F;
+           $t++;
+       }
+    }
+    # last test here 47
 }
 
 # sysread() and syswrite() tested in lib/open.t since Fnctl is used
End of Patch.