Re: "plan skip_all => $reason" is no plan?

2007-04-24 Thread Adriano Ferreira
On 4/24/07, Ovid <[EMAIL PROTECTED]> wrote: --- Adriano Ferreira <[EMAIL PROTECTED]> wrote: > While fussing around with some testing code, I've found that this > script: > > #!/usr/bin/perl > > use Test::More; > > my $Test = Test::Builder->new; > > plan skip_all => "I'm leaving N

Re: "plan skip_all => $reason" is no plan?

2007-04-24 Thread Adrian Howard
On 24 Apr 2007, at 13:58, Adriano Ferreira wrote: [snip] I was trying to come up with a fix for Test::Base which does not seems to interact well with other test modules. In the current sources, it has its own $Have_Plan variable. Then I tried to replace this with $Test::Builder->new->has_plan.

Re: "plan skip_all => $reason" is no plan?

2007-04-24 Thread Adriano Ferreira
On 4/24/07, Adrian Howard <[EMAIL PROTECTED]> wrote: On 24 Apr 2007, at 12:30, Adriano Ferreira wrote: [snip] > I would really expect that "plan skip_all => $reason" was meant to do > "Test::Builder->new->has_plan" to return a true value. According to > the documentation, it is not the case: [sn

Re: "plan skip_all => $reason" is no plan?

2007-04-24 Thread Ovid
--- Adriano Ferreira <[EMAIL PROTECTED]> wrote: > While fussing around with some testing code, I've found that this > script: > > #!/usr/bin/perl > > use Test::More; > > my $Test = Test::Builder->new; > > plan skip_all => "I'm leaving NOW!"; > > END { print "Bye" unless $T

"plan skip_all => $reason" is no plan?

2007-04-24 Thread Adriano Ferreira
While fussing around with some testing code, I've found that this script: #!/usr/bin/perl use Test::More; my $Test = Test::Builder->new; plan skip_all => "I'm leaving NOW!"; END { print "Bye" unless $Test->has_plan } produces the ouput $ perl t-builder.t 1..0 # Skip I'm