Mailing List Archive: Perl: porters

[PATCH] Add the minitest target to vms buildsystem

Index | Next | Previous | View Threaded

abe at ztreet

Nov 13, 2004, 3:48 PM

Post #1 of 5 (467 views)
Permalink

[PATCH] Add the minitest target to vms buildsystem

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

Attachments:

vmsminitest.patch (1.88 KB)

craigberry at mac

Nov 13, 2004, 4:41 PM

Post #2 of 5 (438 views)
Permalink

Re: [PATCH] Add the minitest target to vms buildsystem [In reply to]

At 12:48 AM +0100 11/14/04, Abe Timmerman wrote:

>Here is an implementation for the 'minitest' buildtarget on VMS.
>It needs another pair of eyes I guess (it worked on the Alpha).

This pair of eyes thinks it looks fine.
--
________________________________________
Craig A. Berry
mailto:craigberry [at] mac

"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser

h.m.brand at hccnet

Nov 13, 2004, 11:28 PM

Post #3 of 5 (435 views)
Permalink

Re: [PATCH] Add the minitest target to vms buildsystem [In reply to]

On Sun 14 Nov 2004 00:48, Abe Timmerman <abe [at] ztreet> 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://archives.develooper.com/daily-build [at] perl/ perl-qa [at] perl
send smoke reports to: smokers-reports [at] perl, QA: http://qa.perl.org

abe at ztreet

Nov 25, 2004, 4:58 PM

Post #4 of 5 (443 views)
Permalink

Re: [PATCH] Add the minitest target to vms buildsystem [In reply to]

Op een grimmige herfstdag (Sunday 14 November 2004 08:28),schreef H.Merijn
Brand:
> On Sun 14 Nov 2004 00:48, Abe Timmerman <abe [at] ztreet> 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

nick at ccl4

Nov 27, 2004, 4:53 PM

Post #5 of 5 (444 views)
Permalink

Re: [PATCH] Add the minitest target to vms buildsystem [In reply to]

On Fri, Nov 26, 2004 at 01:58:23AM +0100, Abe Timmerman wrote:

> 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...

Done. (post 5.8.6)

Nicholas Clark

Index | Next | Previous | View Threaded

Interested in having your list archived? Contact Gossamer Threads