Op een grimmige herfstdag (Sunday 14 November 2004 08:28),schreef H.Merijn
Brand:
> On Sun 14 Nov 2004 00:48, Abe Timmerman <[EMAIL PROTECTED]> wrote:
> > Hi all,
Nick,
> > 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
Can you put this on your list of things to integrate as soon as you get around
to it. This would help Test::Smoke on OpenVMS...
> > 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
--
Nicholas Clark> [please, someone answer me. It's getting silly making my
Nicholas Clark> own thread]
Welcome to my world :-)
-- Jarkko Hietaniemi on p5p @ 2001-11-24
