1use Test::Base tests => 5;
2
3run { pass };
4
5is scalar(blocks), 2;
6
7my @block = blocks;
8is $block[0]->foo, "2\n";
9is $block[1]->foo, "3\n";
10
11__DATA__
12=== One
13--- SKIP
14--- foo
151
16=== Two
17--- foo
182
19=== Three
20--- foo
213
22=== Four
23--- SKIP
24--- foo
254
26