On Thu, Mar 15, 2001 at 12:40:22PM +0100, Peter Andreasen wrote:
> > skip {
> > ok( head("http://www.foo.com"), "www.foo.com is alive" );
> > ok( head("http://www.foo.com/bar"), " and has bar" );
> > } "LWP::Simple not installed",
> > !eval { require LWP::Simple; LWP::Simple->import; 1 };
>
> How about letting skip() do a
>
> local $skip_oks = 1;
>
> in case it detects need for skipping? That would let ok behave
> differently (i.e. not really executing the tests, only printing
> "ok - Message # Skipping").
That's the basic idea, but different to my current problem. As
written, running head() will cause the above block to die (even though
skip() will trap it in an eval). That means none of the ok()s will
be run, and thus no output will be seen.
--
Michael G. Schwern <[EMAIL PROTECTED]> http://www.pobox.com/~schwern/
Perl6 Quality Assurance <[EMAIL PROTECTED]> Kwalitee Is Job One
Death? Its like being on holiday with a group of Germans.
