|
Packit |
5b6b86 |
#!/usr/bin/perl
|
|
Packit |
5b6b86 |
while ( <test_data/*.cmd> ) {
|
|
Packit |
5b6b86 |
$file = $_;
|
|
Packit |
5b6b86 |
$test = $file; $test =~ s/\.cmd$//;
|
|
Packit |
5b6b86 |
$out = $test.".out"; $out = `cat $out`;
|
|
Packit |
5b6b86 |
$in = $test.".in"; $in = `cat $in`;
|
|
Packit |
5b6b86 |
$opt = `cat $file`; chomp($opt);
|
|
Packit |
5b6b86 |
|
|
Packit |
5b6b86 |
$inpack = pack('u',$in); chomp($inpack);
|
|
Packit |
5b6b86 |
$outpack = pack('u',$out); chomp($outpack);
|
|
Packit |
5b6b86 |
|
|
Packit |
5b6b86 |
print << "EOFEOF";
|
|
Packit |
5b6b86 |
# $test
|
|
Packit |
5b6b86 |
|
|
Packit |
5b6b86 |
\$example{'$test'} = unpack('u',<<'eofeof');
|
|
Packit |
5b6b86 |
$inpack
|
|
Packit |
5b6b86 |
eofeof
|
|
Packit |
5b6b86 |
|
|
Packit |
5b6b86 |
\$example{'$test.ans'} = unpack('u',<<'eofeof');
|
|
Packit |
5b6b86 |
$outpack
|
|
Packit |
5b6b86 |
eofeof
|
|
Packit |
5b6b86 |
|
|
Packit |
5b6b86 |
printf "%-40s", "$test ";
|
|
Packit |
5b6b86 |
\&test("\$nkf $opt",\$example{'$test'},\$example{'$test.ans'});
|
|
Packit |
5b6b86 |
EOFEOF
|
|
Packit |
5b6b86 |
|
|
Packit |
5b6b86 |
}
|