From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 19 Jun 2001 18:59:01 +0000 (-0500)
Subject: test hunting on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cd4070af8ee9c4d35bae92e09b8a2c42181b36d4;p=p5sagit%2Fp5-mst-13.2.git

test hunting on VMS
Message-Id: <5.1.0.14.0.20010619183530.01c4bdb8@exchi01>

p4raw-id: //depot/perl@10737
---

diff --git a/vms/test.com b/vms/test.com
index 6fae18d..80f3452 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);