From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sat, 9 Oct 2004 18:13:38 +0000 (+0200)
Subject: add the 'test_harness' target to vms "makefile"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=40996b7810cf32994b2b30ccaee4f9d870d60be0;p=p5sagit%2Fp5-mst-13.2.git

add the 'test_harness' target to vms "makefile"
Message-Id: <200410091813.38673.abe@ztreet.demon.nl>

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

diff --git a/t/harness b/t/harness
index f7239fe..e745db8 100644
--- a/t/harness
+++ b/t/harness
@@ -47,6 +47,9 @@ foreach (keys %datahandle) {
 
 my @tests = ();
 
+# [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
+@ARGV = grep $_ && length( $_ ) => @ARGV;
+
 if (@ARGV) {
     if ($^O eq 'MSWin32') {
 	@tests = map(glob($_),@ARGV);
diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template
index ebb59f2..ce7d817 100644
--- a/vms/descrip_mms.template
+++ b/vms/descrip_mms.template
@@ -1277,7 +1277,11 @@ check : test
 	@ Continue
 
 test : all [.t.lib]vmsfspec.t [.t.lib]vms_dclsym.t [.t.lib]vms_stdio.t
-	- @[.VMS]Test.Com "$(E)" "$(__DEBUG__)"
+	- @[.VMS]Test.Com "$(E)" "$(__DEBUG__)" "TEST."
+	@ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests.
+
+test_harness : all [.t.lib]vmsfspec.t [.t.lib]vms_dclsym.t [.t.lib]vms_stdio.t
+	- @[.VMS]Test.Com "$(E)" "$(__DEBUG__)" "HARNESS."
 	@ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests.
 
 # install ought not need a source, but it doesn't work if one's not
diff --git a/vms/test.com b/vms/test.com
index aedcc92..d92f64a 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: