Fix: MIME encode ISO-2022-JP after US-ASCII is broken. [ruby-dev:39722]

[nkf/nkf.git] / make_test.pl

diff --git a/make_test.pl b/make_test.pl
index e743ad4..1554606 100644 (file)
--- a/make_test.pl
+++ b/make_test.pl
@@ -4,10 +4,10 @@ while ( <test_data/*.cmd> ) {
     $test = $file; $test =~ s/\.cmd$//;
     $out = $test.".out"; $out = `cat $out`;
     $in = $test.".in"; $in = `cat $in`;
     $test = $file; $test =~ s/\.cmd$//;
     $out = $test.".out"; $out = `cat $out`;
     $in = $test.".in"; $in = `cat $in`;

-    $opt = `cat $file`; chop($opt);
+    $opt = `cat $file`; chomp($opt);

 
 

-    $inpack = pack('u',$in); chop($inpack);
-    $outpack = pack('u',$out); chop($outpack);
+    $inpack = pack('u',$in); chomp($inpack);
+    $outpack = pack('u',$out); chomp($outpack);

 
 print << "EOFEOF";
 # $test
 
 print << "EOFEOF";
 # $test


@@ -20,7 +20,7 @@ eofeof
 $outpack
 eofeof
 
 $outpack
 eofeof
 

-print "$test    ";
+printf "%-40s",  "$test    ";

     \&test("\$nkf $opt",\$example{'$test'},\$example{'$test.ans'});
 EOFEOF
 
     \&test("\$nkf $opt",\$example{'$test'},\$example{'$test.ans'});
 EOFEOF