CODEWITHSUNDEEP
perltesting
Oleg Razgulyaev
Oleg Razgulyaev

Reputation: 5935

How can I use the parameter `tests` after declaration in Perl's Test::More?

from perldoc -f use
syntax of the function use: 

   use Module VERSION LIST
   use Module VERSION
   use Module LIST
   use Module
   use VERSION

but in this case:

use Test::More tests => 5;

(it sets number of tests to 5)

What is data type of the expresion tests => 5?
Is it LIST or something else?

How can I use this parameter tests after declaration?

Upvotes: 3

Views: 151

Answers (2)

brian d foy
brian d foy

Reputation: 132858

You can ask Test::More to give you its builder object:

use Test::More tests => 5;

my $plan = Test::More->builder->has_plan;

print "I'm going to run $plan tests\n";

You don't have to make the number of tests a literal. You can compute it and store it in a variable:

use vars qw($tests);

BEGIN { $tests = ... some calculation ... }
use Test::More tests => $tests;

print "I'm going to run $tests tests\n";

You don't have to declare the plan ahead of time though:

use Test::More;

my $tests = 5;
plan( tests => $tests );

print "I'm going to run $tests tests\n";

You asked about skipping tests. If you want to skip all of the tests, you can use skip_all instead of tests:

use Test::More;

$condition = 1;

plan( $condition ? ( skip_all => "Some message" ) : ( tests => 4 ) );

pass() for 1 .. 5;

You can also do that when you want to segment the tests into groups. You figure out the number of tests in each group and sum those to create the plan. Later you know how many to skip:

use Test::More;

my( $passes, $fails ) = ( 3, 5 );
my( $skip_passes, $skip_fails ) = ( 0, 1 );

plan( tests => $passes + $fails );

SKIP: {
    skip "Skipping passes", $passes if $skip_passes;
    pass() for 1 .. $passes;
    }

SKIP: {
    skip "Skipping fails", $fails if $skip_fails;
    fail() for 1 .. $fails;
    }

Upvotes: 6

zigdon
zigdon

Reputation: 15073

Yes, it's the LIST mentioned - the => is just a fancy way of writing this:

use Test::More ("tests", 5);

Which in turn calls Test::More->import("tests", 5) after loading the module.

Upvotes: 8

Related Questions