1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
use strict;
use warnings;
use Test::Builder::Tester tests => 1;
use Test::More;
use Test::Block;
test_out("ok 1 - remaining set");
test_out("not ok 2 - block 'inner' expected 1 test(s) and ran 0");
test_fail(+8);
test_out("ok 3 - remaining updated");
test_out("ok 4 # skip last test");
test_out("ok 5 - block count correct");
SKIP: {
local $Test::Block::Plan = 4;
is( $Test::Block::Plan, 4, 'remaining set' );
{
local $Test::Block::Plan = { inner => 1 };
}
is( $Test::Block::Plan, 2, 'remaining updated' );
skip 'last test', $Test::Block::Plan;
};
is( Test::Block->block_count, 2, 'block count correct');
test_test('$Test::Block::Plan');
|
