blob: 11c48e2908ef5de8ab21eb7a514d2509f7a2db47 (
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
|
#!./perl
# $Header: TEST,v 1.0 87/12/18 13:11:34 root Exp $
# This is written in a peculiar style, since we're trying to avoid
# most of the constructs we'll be testing for.
if ($ARGV[0] eq '-v') {
$verbose = 1;
shift;
}
if ($ARGV[0] eq '') {
@ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.*`);
}
$bad = 0;
while ($test = shift) {
print "$test...";
open(results,"$test|") || (print "can't run.\n");
$ok = 0;
while (<results>) {
if ($verbose) {
print $_;
}
unless (/^#/) {
if (/^1\.\.([0-9]+)/) {
$max = $1;
$next = 1;
$ok = 1;
} else {
if (/^ok (.*)/ && $1 == $next) {
$next = $next + 1;
} else {
$ok = 0;
}
}
}
}
$next = $next - 1;
if ($ok && $next == $max) {
print "ok\n";
} else {
$next += 1;
print "FAILED on test $next\n";
$bad = $bad + 1;
$_ = $test;
if (/^base/) {
die "Failed a basic test--cannot continue.";
}
}
}
if ($bad == 0) {
if ($ok) {
print "All tests successful.\n";
} else {
die "FAILED--no tests were run for some reason.";
}
} else {
if ($bad == 1) {
die "Failed 1 test.";
} else {
die "Failed $bad tests.";
}
}
($user,$sys,$cuser,$csys) = times;
print sprintf("u=%g s=%g cu=%g cs=%g\n",$user,$sys,$cuser,$csys);
|
