From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 15 Mar 2002 07:31:54 +0000 (+0000)
Subject: Add the binmode()s to make JP.t pass on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6a3912c27ed4f9ffb87d242b56d42a194c8b333;p=p5sagit%2Fp5-mst-13.2.git

Add the binmode()s to make JP.t pass on Win32

p4raw-id: //depot/perlio@15235
---

diff --git a/ext/Encode/t/JP.t b/ext/Encode/t/JP.t
index 8e68ea1..31ba2da 100644
--- a/ext/Encode/t/JP.t
+++ b/ext/Encode/t/JP.t
@@ -36,9 +36,11 @@ my $ref = File::Spec->catfile($dir,"table.ref");
 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 @@ ok(compare($utf,$ref) == 0);
 
 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 @@ is($enc->name,'euc-jp');
 
 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:
  #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>)