#!./perl
-# $Header: TEST,v 3.0.1.3 91/01/11 18:28:17 lwall Locked $
+# $RCSfile: TEST,v $$Revision: 4.0.1.1 $$Date: 91/06/07 11:59:30 $
# This is written in a peculiar style, since we're trying to avoid
# most of the constructs we'll be testing for.
chdir 't' if -f 't/TEST';
if ($ARGV[0] eq '') {
- @ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.* lib.*`);
+ @ARGV = split(/[ \n]/,
+ `echo base/*.t comp/*.t cmd/*.t io/*.t; echo op/*.t lib/*.t`);
}
open(CONFIG,"../config.sh");
}
$bad = 0;
while ($test = shift) {
- if ($test =~ /\.orig$/) {
+ if ($test =~ /^$/) {
next;
}
- if ($test =~ /\.rej$/) {
- next;
- }
- if ($test =~ /~$/) {
- next;
- }
- print "$test" . '.' x (16 - length($test));
+ $te = $test;
+ chop($te);
+ print "$te" . '.' x (15 - length($te));
if ($sharpbang) {
open(results,"./$test|") || (print "can't run.\n");
} else {
unless (/^#/) {
if (/^1\.\.([0-9]+)/) {
$max = $1;
+ $totmax += $max;
+ $files += 1;
$next = 1;
$ok = 1;
} else {
}
}
($user,$sys,$cuser,$csys) = times;
-print sprintf("u=%g s=%g cu=%g cs=%g\n",$user,$sys,$cuser,$csys);
+print sprintf("u=%g s=%g cu=%g cs=%g files=%d tests=%d\n",
+ $user,$sys,$cuser,$csys,$files,$totmax);