blob: 4864c2b344ecf1cad134db7e0005f050a89faac1 (
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
|
#!/p/bin/perl -w
$tr = '../tr +io 5';
$tr = 'tr';
$tr = './tr';
$test = 0;
$| = 1;
print "#! /bin/sh\ntr='$tr'\necho testing with tr=\$tr\nerrors=0\n";
print "$tr --version 2> /dev/null\n";
$expected = '';
$s1 = '';
$input = '';
$flags = '';
$s1 = '';
while (<>)
{
next if (/^\s*#/);
$test++;
chop;
$prog = '($test_name, $input,$flags,$s1,$s2,$expected,$e_ret_code) = ' . $_ . ';';
eval $prog;
$in = "t$test_name.in";
$exp_name = 't' . $test_name . '.exp';
$out = "t$test_name.out";
open(IN, ">$in") || die "Couldn't open $in for writing.\n";
print IN $input;
close(IN);
open(EXP, ">$exp_name")
|| die "Couldn't open $exp_name for writing.\n";
print EXP $expected;
close(EXP);
$arg2 = ($s2 ? " '$s2'" : '');
$err_output = "t$test_name.err";
$cmd = "\$tr $flags \'$s1\'$arg2 < $in > $out 2> $err_output";
print <<EOF ;
$cmd
code=\$?
if test \$code != $e_ret_code ; then
echo Test $test_name failed: tr return code \$code differs from expected value $e_ret_code 1>&2
errors=`expr \$errors + 1`
else
cmp $out $exp_name
case \$? in
0) if test "\$verbose" ; then echo passed $test_name; fi ;; # equal files
1) echo Test $test_name failed: files $out and $exp_name differ 1>&2;
errors=`expr \$errors + 1` ;;
2) echo Test $test_name may have failed. 1>&2;
echo The command \"cmp $out $exp_name\" failed. 1>&2 ;
errors=`expr \$errors + 1` ;;
esac
fi
test -s $err_output || rm -f $err_output
EOF
}
print <<EOF2 ;
if test \$errors = 0 ; then
echo Passed all tests. 1>&2
else
echo Failed \$errors tests. 1>&2
fi
EOF2
|
