1use Test::Base;
2
3plan tests => 7 * blocks;
4
5run_is 'foo', 'bar';
6run_is 'bar', 'baz';
7run_is 'baz', 'foo';
8
9for my $block (blocks) {
10    is $block->foo, $block->bar, $block->name;
11    is $block->bar, $block->baz, $block->name;
12    is $block->baz, $block->foo, $block->name;
13}
14
15my @blocks = blocks;
16
17is $blocks[0]->foo, "Hey Now\n";
18is $blocks[1]->foo, "Holy Cow\n";
19
20__END__
21
22
23=== One
24--- foo
25Hey Now
26--- bar
27Hey Now
28--- baz
29Hey Now
30
31
32=== Two
33--- baz
34Holy Cow
35--- bar
36Holy Cow
37--- foo
38Holy Cow
39