diff options
Diffstat (limited to 't/TEST')
-rw-r--r-- | t/TEST | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -1,10 +1,12 @@ #!./perl -# $Header: TEST,v 2.0 88/06/05 00:11:47 root Exp $ +# $Header: TEST,v 3.0 89/10/18 15:24:06 lwall Locked $ # This is written in a peculiar style, since we're trying to avoid # most of the constructs we'll be testing for. +$| = 1; + if ($ARGV[0] eq '-v') { $verbose = 1; shift; @@ -28,7 +30,10 @@ while ($test = shift) { if ($test =~ /\.orig$/) { next; } - print "$test..."; + if ($test =~ /~$/) { + next; + } + print "$test" . '.' x (16 - length($test)); if ($sharpbang) { open(results,"./$test|") || (print "can't run.\n"); } else { |