1use Test::Base;
2
3my $t = -e 't' ? 't' : 'test';
4filters 'chomp';
5spec_file "$t/spec2";
6
7plan tests => 3 * blocks;
8
9run {
10    my $block = shift;
11    is ref($block), 'Test::Base::Block';
12};
13
14my @blocks = blocks;
15
16is($blocks[0]->foo, 1);
17is($blocks[0]->bar, 2);
18is($blocks[1]->foo, 3);
19is($blocks[1]->bar, 4);
20