mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-03-04 03:55:51 +02:00
80 lines
1.8 KiB
Plaintext
Executable File
80 lines
1.8 KiB
Plaintext
Executable File
#!/p/bin/perl5.000 -w
|
|
|
|
$join = 'join';
|
|
$join = '/usr/bin/join';
|
|
$join = './join';
|
|
$test = 0;
|
|
$| = 1;
|
|
|
|
print ":\n$join --version\nerrors=0\n";
|
|
$expected = '';
|
|
$flags = '';
|
|
$f1 = '';
|
|
$f2 = '';
|
|
|
|
while (<>)
|
|
{
|
|
next if (/^\s*#/ || /^\s+$/);
|
|
|
|
$test++;
|
|
chop;
|
|
$prog = '($test_name, $flags,$f1,$f2,$expected,$e_ret_code) = ' . $_ . ';';
|
|
eval $prog;
|
|
if (defined ($seen{$test_name}))
|
|
{
|
|
die "$0: $.: duplicate test name \`$test_name'\n";
|
|
}
|
|
$seen{$test_name} = 1;
|
|
$in1 = "t$test_name.1";
|
|
$in2 = "t$test_name.2";
|
|
$log = "t$test_name.log";
|
|
$exp_name = 't' . $test_name . '.exp';
|
|
$out = "t$test_name.out";
|
|
|
|
open(IN, ">$in1") || die "Couldn't open $in1 for writing.\n";
|
|
print IN $f1;
|
|
close(IN);
|
|
open(IN, ">$in2") || die "Couldn't open $in2 for writing.\n";
|
|
print IN $f2;
|
|
close(IN);
|
|
open(EXP, ">$exp_name")
|
|
|| die "Couldn't open $exp_name for writing.\n";
|
|
print EXP $expected;
|
|
close(EXP);
|
|
$cmd = "$join $flags $in1 $in2 > $out";
|
|
print <<EOF ;
|
|
$cmd 2> $log
|
|
code=\$?
|
|
fail=yes
|
|
if test \$code != $e_ret_code ; then
|
|
err_msg="Test $test_name failed: join return code \$code differs from expected value $e_ret_code"
|
|
else
|
|
cmp $out $exp_name >> $log 2>&1
|
|
case \$? in
|
|
0) # equal files
|
|
if test "\$verbose" ; then
|
|
echo passed $test_name
|
|
fi
|
|
fail=no
|
|
;;
|
|
1) err_msg="Test $test_name failed: files $out and $exp_name differ"
|
|
;;
|
|
2) err_msg="Test $test_name may have failed.
|
|
echo The command \"cmp $out $exp_name\" failed."
|
|
;;
|
|
esac
|
|
fi
|
|
if test \$fail = yes; then
|
|
errors=`expr \$errors + 1`
|
|
echo "Failing command: $cmd" >> $log
|
|
echo "\$err_msg" >> $log
|
|
fi
|
|
test -s $log || rm -f $log
|
|
EOF
|
|
}
|
|
print <<EOF2 ;
|
|
if test \$errors -gt 0 ; then
|
|
echo Failed \$errors tests. 1>&2
|
|
fi
|
|
EOF2
|