diff options
| author | Abe Timmerman <abe@ztreet.demon.nl> | 2004-11-14 01:48:17 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-11-14 07:02:20 +0000 |
| commit | 68ccb645d74feb45c64863c3223051537fbc9fed (patch) | |
| tree | 2420453fac9a7eab9c4d43e1908868c78e709684 /vms | |
| parent | 5b673cda9907afd397f1e4108acdb4210b61c4ca (diff) | |
| download | perl-68ccb645d74feb45c64863c3223051537fbc9fed.tar.gz | |
Add the minitest target to vms buildsystem
Message-Id: <200411140048.17035.abe@ztreet.demon.nl>
p4raw-id: //depot/perl@23498
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/descrip_mms.template | 4 | ||||
| -rw-r--r-- | vms/test.com | 14 |
2 files changed, 16 insertions, 2 deletions
diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 4a86437fa0..271ae01d14 100644 --- 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 3c5b49ec70..7a3bc63cdd 100644 --- 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: |