diff options
| author | Abe Timmerman <abe@ztreet.demon.nl> | 2004-10-09 20:13:38 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-10-11 07:28:34 +0000 |
| commit | 40996b7810cf32994b2b30ccaee4f9d870d60be0 (patch) | |
| tree | 8ef8ecac76429a3627efcf6c747961e70a9e517c /vms/test.com | |
| parent | 131b3ad08b25bcfcb31b9933319b3186bdd13248 (diff) | |
| download | perl-40996b7810cf32994b2b30ccaee4f9d870d60be0.tar.gz | |
add the 'test_harness' target to vms "makefile"
Message-Id: <200410091813.38673.abe@ztreet.demon.nl>
p4raw-id: //depot/perl@23358
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/vms/test.com b/vms/test.com index aedcc92601..d92f64a1a0 100644 --- a/vms/test.com +++ b/vms/test.com @@ -16,9 +16,11 @@ $ oldmsg = F$Environment("Message") $ oldpriv = F$SetPrv("NOALL") ! downgrade privs for safety $ discard = F$SetPrv("NETMBX,TMPMBX") ! only need these to run tests $! -$! Process arguments. P1 is the file extension of the Perl images. P2, -$! when not empty, indicates that we are testing a version of Perl built for -$! the VMS debugger. The other arguments are passed directly to t/TEST. +$! Process arguments. P1 is the file extension of the Perl images. +$! P2, when not empty, indicates that we are testing a version of Perl built +$! for the VMS debugger. The other arguments are passed directly to t/TEST. +$! P3 is the test target to use: +$! TEST. or harness. $! $ exe = ".Exe" $ If p1.nes."" Then exe = p1 @@ -40,6 +42,10 @@ $ ndbg = "" $ if p2.nes."" then dbg = "dbg" $ if p2.nes."" then ndbg = "ndbg" $! +$! P3 - testfile +$ testfile = "TEST." +$ if p3.nes."" then testfile = p3 +$! $! Make sure we are where we need to be. $ If F$Search("t.dir").nes."" $ Then @@ -73,7 +79,7 @@ $ testdir = "Directory/NoHead/NoTrail/Column=1" $ PerlShr_filespec = f$parse("Sys$Disk:[-]''dbg'PerlShr''exe'") $ Define 'dbg'Perlshr 'PerlShr_filespec' $ If F$Mode() .nes. "INTERACTIVE" Then Define/Nolog PERL_SKIP_TTY_TEST 1 -$ MCR Sys$Disk:[]Perl. "-I[-.lib]" TEST. "''p3'" "''p4'" "''p5'" "''p6'" +$ MCR Sys$Disk:[]Perl. "-I[-.lib]" 'testfile' "''p4'" "''p5'" "''p6'" "''p7'" $ goto wrapup $! $ Control_Y_exit: |