Change 15239 by jhi@alpha on 2002/03/15 16:11:17
Integrate perlio.
Affected files ...
.... //depot/perl/embed.fnc#24 integrate
.... //depot/perl/ext/Encode/t/JP.t#7 integrate
Differences ...
==== //depot/perl/embed.fnc#24 (text) ====
==== //depot/perl/ext/Encode/t/JP.t#7 (text) ====
Index: perl/ext/Encode/t/JP.t
--- perl/ext/Encode/t/JP.t.~1~ Fri Mar 15 09:15:07 2002
+++ perl/ext/Encode/t/JP.t Fri Mar 15 09:15:07 2002
@@ -36,9 +36,11 @@
my $rnd = File::Spec->catfile($dir,"$$.rnd");
print "# Basic decode test\n";
open($src,"<",$euc) || die "Cannot open $euc:$!";
+binmode($src);
ok(defined($src) && fileno($src));
$txt = join('',<$src>);
open($dst,">:utf8",$utf) || die "Cannot open $utf:$!";
+binmode($dst);
ok(defined($dst) && fileno($dst));
$uni = $enc->decode($txt,1);
ok(defined($uni));
@@ -50,9 +52,11 @@
print "# Basic encode test\n";
open($src,"<:utf8",$ref) || die "Cannot open $ref:$!";
+binmode($src);
ok(defined($src) && fileno($src));
$uni = join('',<$src>);
open($dst,">",$rnd) || die "Cannot open $rnd:$!";
+binmode($dst);
ok(defined($dst) && fileno($dst));
$txt = $enc->encode($uni,1);
ok(defined($txt));
@@ -66,8 +70,10 @@
print "# src :encoding test\n";
open($src,"<encoding(euc-jp)",$euc) || die "Cannot open $euc:$!";
+binmode($src);
ok(defined($src) && fileno($src));
open($dst,">:utf8",$utf) || die "Cannot open $utf:$!";
+binmode($dst);
ok(defined($dst) || fileno($dst));
my $out = select($dst);
while (<$src>)
@@ -88,8 +94,10 @@
#skip "Multi-byte write is broken",3;
print "# dst :encoding test\n";
open($src,"<:utf8",$ref) || die "Cannot open $ref:$!";
+ binmode($src);
ok(defined($src) || fileno($src));
open($dst,">encoding(euc-jp)",$rnd) || die "Cannot open $rnd:$!";
+ binmode($dst);
ok(defined($dst) || fileno($dst));
my $out = select($dst);
while (<$src>)
End of Patch.
