summaryrefslogtreecommitdiff
path: root/t/TEST
diff options
context:
space:
mode:
Diffstat (limited to 't/TEST')
-rw-r--r--t/TEST9
1 files changed, 7 insertions, 2 deletions
diff --git a/t/TEST b/t/TEST
index 9ee217501f..e9ed3e9d4b 100644
--- a/t/TEST
+++ b/t/TEST
@@ -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 {