This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add the 'test_harness' target to vms "makefile"
authorAbe Timmerman <abe@ztreet.demon.nl>
Sat, 9 Oct 2004 18:13:38 +0000 (20:13 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 11 Oct 2004 07:28:34 +0000 (07:28 +0000)
Message-Id: <200410091813.38673.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@23358

t/harness
vms/descrip_mms.template
vms/test.com

index f7239fe..e745db8 100644 (file)
--- 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);
index ebb59f2..ce7d817 100644 (file)
@@ -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
index aedcc92..d92f64a 100644 (file)
@@ -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: