Hi all,
Here is an implementation for the 'minitest' buildtarget on VMS.
It needs another pair of eyes I guess (it worked on the Alpha).
diff -ru perl-current/vms/descrip_mms.template perl59x/vms/descrip_mms.template
--- perl-current/vms/descrip_mms.template Sun Oct 17 02:15:28 2004
+++ perl59x/vms/descrip_mms.template Sat Nov 13 11:29:05 2004
@@ -1286,6 +1286,10 @@
- @[.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 -ru perl-current/vms/test.com perl59x/vms/test.com
--- perl-current/vms/test.com Sun Oct 17 02:15:28 2004
+++ perl59x/vms/test.com Sat Nov 13 02:28:42 2004
@@ -60,7 +60,12 @@
$!
$! 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 @@
$ 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:
Good luck,
Abe
--
NI-S> All in all not one of my better bits of code.
EINSUFFICIENTPARANOIA?
Remember, just because you don't believe that everyone is out to get
you, it doesn't actually mean that they are not.
-- Nicholas Clark on p5p @ 20020522
diff -ru perl-current/vms/descrip_mms.template perl59x/vms/descrip_mms.template
--- perl-current/vms/descrip_mms.template Sun Oct 17 02:15:28 2004
+++ perl59x/vms/descrip_mms.template Sat Nov 13 11:29:05 2004
@@ -1286,6 +1286,10 @@
- @[.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 -ru perl-current/vms/test.com perl59x/vms/test.com
--- perl-current/vms/test.com Sun Oct 17 02:15:28 2004
+++ perl59x/vms/test.com Sat Nov 13 02:28:42 2004
@@ -60,7 +60,12 @@
$!
$! 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 @@
$ 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:
