blob: f31a27112a2001dcefa74daa436923ef2e88241d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
#!/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
else
echo 'Passed all tests.' 1>&2
fi
EOF2
|
