Add the minitest target to vms buildsystem

Message-Id: <200411140048.17035.abe@ztreet.demon.nl>

p4raw-id: //depot/perl@23498

diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template
index 4a86437..271ae01 100644 (file)
--- a/vms/descrip_mms.template
+++ b/vms/descrip_mms.template
@@ -1286,6 +1286,10 @@ test_harness : all [.t.lib]vmsfspec.t [.t.lib]vms_dclsym.t [.t.lib]vms_stdio.t
        - @[.VMS]Test.Com "$(E)" "$(__DEBUG__)"
        @ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests.
 
+minitest : $(MINITEST_EXE) [.lib]re.pm [.lib]lib.pm [.lib.VMS]Filespec.pm unidatafiles.ts
+       @ PERL_TEST_DRIVER == "minitest"
+       - @[.VMS]Test.Com "$(E)" "$(__DEBUG__)"
+
 # install ought not need a source, but it doesn't work if one's not
 # there. Go figure...
 install : $(MINIPERL_EXE)

diff --git a/vms/test.com b/vms/test.com
index 3c5b49e..7a3bc63 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -60,7 +60,12 @@ $   EndIf
 $!
 $!  Pick up a copy of perl to use for the tests
 $   If F$Search("Perl.").nes."" Then Delete/Log/NoConfirm Perl.;*
-$   Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl.
+$   If PERL_TEST_DRIVER .eqs. "minitest"
+$   Then
+$       Copy/Log/NoConfirm [-]miniperl'exe' []Perl.
+$   Else
+$       Copy/Log/NoConfirm [-]'ndbg'Perl'exe' []Perl.
+$   EndIf
 $!
 $!  Pick up a copy of vmspipe.com to use for the tests
 $   If F$Search("VMSPIPE.COM").nes."" then Delete/Log/Noconfirm VMSPIPE.COM;*
@@ -76,7 +81,12 @@ $   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]" 'PERL_TEST_DRIVER' "''p3'" "''p4'" "''p5'" "''p6'" "''p7'"
+$   If PERL_TEST_DRIVER .eqs. "minitest"
+$   Then
+$       MCR Sys$Disk:[]Perl. TEST. "-minitest" "base/*.t" "comp/*.t" "cmd/*.t" "run/*.t" "io/*.t" "op/*.t" "uni/*.t"
+$   Else
+$       MCR Sys$Disk:[]Perl. "-I[-.lib]" 'PERL_TEST_DRIVER' "''p3'" "''p4'" "''p5'" "''p6'" "''p7'"
+$   EndIf
 $   goto wrapup
 $!
 $ Control_Y_exit: