diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-06-19 13:59:01 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-19 22:56:52 +0000 |
| commit | cd4070af8ee9c4d35bae92e09b8a2c42181b36d4 (patch) | |
| tree | 3140e0d8c893825975b008b51de7fd377e499c4a /vms/test.com | |
| parent | 26fa51c3c44a8df0f29f0c3a9a3dbd08be8f85d5 (diff) | |
| download | perl-cd4070af8ee9c4d35bae92e09b8a2c42181b36d4.tar.gz | |
test hunting on VMS
Message-Id: <5.1.0.14.0.20010619183530.01c4bdb8@exchi01>
p4raw-id: //depot/perl@10737
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/vms/test.com b/vms/test.com index 6fae18dba5..80f3452964 100644 --- a/vms/test.com +++ b/vms/test.com @@ -112,6 +112,7 @@ $ Deck/Dollar=$$END-OF-TEST$$ # of Unixisms in the tests. (The Perl operators being tested may work fine, # but the tests may use other operators which don't.) use Config; +use File::Spec; @compexcl=('cpp.t'); @ioexcl=('argv.t','dup.t','fs.t','pipe.t'); @@ -143,8 +144,9 @@ if (lc($ARGV[0]) eq '-v') { chdir 't' if -f 't/TEST'; if ($ARGV[0] eq '') { - foreach (<[.*]*.t>) { - s/.*[\[.]t./[./; + foreach (<[-.ext...]*.t>, <[-.lib...]*.t>, <[.*]*.t>) { + $_ = File::Spec->abs2rel($_); + s/\[([a-z]+)/[.$1/; # hmm, abs2rel doesn't do subdirs of the cwd ($fname = $_) =~ s/.*\]//; if ($skip{"\L$fname"}) { push(@skipped,$_); } else { push(@ARGV,$_); } @@ -166,7 +168,7 @@ while ($test = shift) { } $te = $test; chop($te); - $te .= '.' x (24 - length($te)); + $te .= '.' x (40 - length($te)); open(script,"$test") || die "Can't run $test.\n"; $_ = <script>; close(script); |