develooper Front page | perl.perl5.porters | Postings from August 2001

Re: new exit tests on VMS

Thread Previous | Thread Next
Michael G Schwern
August 5, 2001 13:22
Re: new exit tests on VMS
Message ID:
On Tue, Jul 31, 2001 at 12:19:29PM -0500, Craig A. Berry wrote:
> 2, it turns out.  Here are the warning, error, and fatal error flavors of 
> the abort status (which you landed on by chance), which return 1, 2, and 4 
> respectively:

Want to patch up perlport, too?

> Odd numbers always indicate success so system() returns zero.  The following 
> may be considered a patch if you wish since all the new tests pass, though 
> this may or may not be the appropriate place to do them. I'll try to have a 
> look at lib/Test/Simple/t/simple.t as well.

lib/Test/Simple/t/exit.t you mean.  Since Test::Simple uses its
numeric exit code to indicate how many tests failed, that's just not
going to work on VMS.  Going to have to just skip the whole thing.

> $? in an END block still doesn't work and may be genuinely broken on VMS (or 
> just never implemented); any idea where in the sources I would look to see 
> where this is done?

Nope, sorry.  Hmmm... B::Terse doesn't seem to see END blocks.

> --- t/run/exit.t;-0     Mon Jul  9 09:11:31 2001
> +++ t/run/exit.t        Tue Jul 31 12:01:03 2001
> @@ -18,15 +18,41 @@
>      return system($cmd.$quote.$code.$quote);
>  }
> -use Test::More tests => 3;
> +## can't use this in 'use Test::More' yet
> +##my $numtests = ($^O eq 'VMS') ? 7 : 3; 

Patch looks sensible except for this sort of thing.  Just delete old
lines, don't comment them out.  If we want to see history, we can look
back through Perforce.


Michael G. Schwern   <>
Perl6 Quality Assurance     <>	     Kwalitee Is Job One
Your average appeasement engineer is about as clued-up on computers as
the average computer "hacker" is about B.O.
	-- BOFH

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About