2 while ( <test_data/*.cmd> ) {
4 $test = $file; $test =~ s/\.cmd$//;
5 $out = $test.".out"; $out = `cat $out`;
6 $in = $test.".in"; $in = `cat $in`;
7 $opt = `cat $file`; chop($opt);
9 $inpack = pack('u',$in); chop($inpack);
10 $outpack = pack('u',$out); chop($outpack);
15 \$example{'$test'} = unpack('u',<<'eofeof');
19 \$example{'$test.ans'} = unpack('u',<<'eofeof');
24 \&test("\$nkf $opt",\$example{'$test'},\$example{'$test.ans'});