Re: Test::Builder feature request...

[Adam Kennedy]

This works:


---test.pl---
use Test::More tests => 1;

my $Test = Test::More->builder;
my $counter = $Test->current_test;

print qx!perl t/response.pl!;

$Test->current_test($counter + 1);

But why 1? Why not 5? or 10?

__END__


---response.pl---
use Test::More no_plan => 1;

Test::More->builder->no_header(1);
Test::More->builder->no_ending(1);

pass ('this was a passing test');

___END___

The problem was the test.pl file counter was never incremented so it never saw the planned test.