BEGIN {$test_count = 2}
use Test::More tests => $test_count;
[download]

hi

I tried that. but that is not working.

"Keep pouring your ideas"

Are you using my in there? That part has to be outside the BEGIN block.

my $test_count;
BEGIN { $test_count = 2 }
use Test::More tests => $test_count;
[download]

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Works for me:

use warnings;
BEGIN {$test_count = 2}
use Test::More tests => $test_count;

ok(1);
ok(3);
[download]

Outputs:

1..2
ok 1
ok 2

Cheers,
Rob

BEGIN {
    $test_count = 2;
    eval ("use Test::More tests => ".$test_count) ;
}
[download]

An alternate approach is:

# compile time
use Test::More;

# run time
my $test_count = 2;
plan( tests => $test_count );
[download]

You can use this when you don't have tests that execute in BEGIN, CHECK, or INIT blocks.

That's a great point. I use that pattern also for when I may want to skip a test file entirely if a test dependency isn't available.

use Test::More;

eval { require Some::Crazy::Dependency };

if ($@) {
    plan skip_all => "Some::Crazy::Dependency not available";
}
else {
    plan tests => 42;
}
[download]

It could be done in a BEGIN block, too, but I find it more readable without them.

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.