diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-10-16 07:15:02 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2004-10-16 23:52:18 +0000 |
| commit | 20533b5ab7dd4e5ed429644a69a242f721deb78c (patch) | |
| tree | d517547556c6c129612365bc0489defbe9be30ef /vms/test.com | |
| parent | 3ab1ac99cac69a50df98e9a6b2a9d1217de1d092 (diff) | |
| download | perl-20533b5ab7dd4e5ed429644a69a242f721deb78c.tar.gz | |
test_harness tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <41715716.5000108@mac.com>
p4raw-id: //depot/perl@23377
Diffstat (limited to 'vms/test.com')
| -rw-r--r-- | vms/test.com | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/vms/test.com b/vms/test.com index d92f64a1a0..3c5b49ec70 100644 --- a/vms/test.com +++ b/vms/test.com @@ -19,8 +19,6 @@ $! $! 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 @@ -42,9 +40,8 @@ $ ndbg = "" $ if p2.nes."" then dbg = "dbg" $ if p2.nes."" then ndbg = "ndbg" $! -$! P3 - testfile -$ testfile = "TEST." -$ if p3.nes."" then testfile = p3 +$! Run using "TEST." unless something else (e.g. "harness.") was specified. +$ If F$Type(PERL_TEST_DRIVER) .eqs. "" Then PERL_TEST_DRIVER == "TEST." $! $! Make sure we are where we need to be. $ If F$Search("t.dir").nes."" @@ -79,7 +76,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]" 'testfile' "''p4'" "''p5'" "''p6'" "''p7'" +$ MCR Sys$Disk:[]Perl. "-I[-.lib]" 'PERL_TEST_DRIVER' "''p3'" "''p4'" "''p5'" "''p6'" "''p7'" $ goto wrapup $! $ Control_Y_exit: |