# nkf PDS version passes Basic Conversion tests using "nkf -iB -oB "
#
-$nkf = 'MSWin32' eq $^O ? ".\\nkf" : "./nkf";
+if ($ARGV[0]) {
+ $nkf = $ARGV[0];
+} else {
+ $nkf = 'MSWin32' eq $^O ? ".\\nkf" : "./nkf";
+}
# $nkf = "doscmd nkf.exe";
# If you want to see the testing process, set next flag.
$result = '';
open(OUT,"> nkf.in");
+ binmode OUT;
print OUT $in;
close(OUT);
system("$nkf <nkf.in >nkf.out"); # easy
open(IN,"< nkf.out");
+ binmode IN;
while(<IN>) {
$result .= $_;
}
system "mv nkf.in nkf.in.$error_count.bad";
system "mv nkf.out nkf.out.$error_count.bad";
open(OUT,"> nkf.expect.$error_count.bad");
+ binmode OUT;
print OUT $ans;
close(OUT);
$error_count++;
if ($diff) {
- open(R,"|od -c >tmp.result.bad"); print R $result; close(R);
- open(R,"|od -c >tmp.expect.bad"); print R $ans; close(R);
+ open(R,"|od -c >tmp.result.bad"); binmode R; print R $result; close(R);
+ open(R,"|od -c >tmp.expect.bad"); binmode R; print R $ans; close(R);
system "diff -c tmp.result.bad tmp.expect.bad";
}
return $result;