Hi,
I like having the test_harness target for manual builds, it saves time.
So here is a patch.
Good luck,
Abe
--
Yitzchak> Or did the "Thanks, applied" autoresponder miss it :)
Autoresponder busy studying Bulgarian EBCDIC locales. No, I'm
not making this up. I wish.
-- Jarkko Hietaniemi on p5p @ 2002-01-30
diff -ru perl-current/t/harness perl59x/t/harness
--- perl-current/t/harness Fri May 31 04:17:45 2002
+++ perl59x/t/harness Sat Oct 9 14:56:53 2004
@@ -47,6 +47,9 @@
my @tests = ();
+# [.VMS]TEST.COM calls harness with empty arguments, so clean-up @ARGV
[EMAIL PROTECTED] = grep $_ && length( $_ ) => @ARGV;
+
if (@ARGV) {
if ($^O eq 'MSWin32') {
@tests = map(glob($_),@ARGV);
diff -ru perl-current/vms/descrip_mms.template perl59x/vms/descrip_mms.template
--- perl-current/vms/descrip_mms.template Mon Aug 16 20:19:59 2004
+++ perl59x/vms/descrip_mms.template Sat Oct 9 14:10:23 2004
@@ -1277,7 +1277,11 @@
@ 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 -ru perl-current/vms/test.com perl59x/vms/test.com
--- perl-current/vms/test.com Mon Jul 1 21:41:29 2002
+++ perl59x/vms/test.com Sat Oct 9 14:09:52 2004
@@ -16,9 +16,11 @@
$ 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 @@
$ 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 @@
$ 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:
