use Test::More 'tests' => 23; #### use Test::More; # test definitions plan 'tests' => scalar @cases + 2 * scalar @cases_that_cause_two_tests + 17; #### use Test::More; # This variable is set by BEGIN blocks elsewhere. my $static_tests; plan 'tests' => $static_tests; BEGIN { $static_tests++ } pass 'Static test 1'; BEGIN { $static_tests += 3 } pass 'Group test 1/3'; pass 'Group test 2/3'; pass 'Group test 3/3';