On Sun 14 Nov 2004 00:48, Abe Timmerman <[EMAIL PROTECTED]> wrote:
> 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).
Thanks, this pair of eyes submitted it as change #23498
> 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
--
H.Merijn Brand Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using perl-5.6.1, 5.8.5, & 5.9.x, and 809 on HP-UX 10.20 & 11.00, 11i,
AIX 4.3, AIX 5.2, SuSE 9.1, and Win2k. http://www.cmve.net/~merijn/
http:[EMAIL PROTECTED]/ [EMAIL PROTECTED]
send smoke reports to: [EMAIL PROTECTED], QA: http://qa.perl.org
