1use Test::Base tests => 4;
2
3filters 'eval';
4
5my $block = first_block;
6
7is ref($block->hash), 'HASH';
8is ref($block->array), 'ARRAY';
9is scalar(@{$block->array}), 11;
10is $block->factorial, '362880';
11
12__END__
13
14=== Test
15--- hash
16{
17    foo => 'bar',
18    bar => 'hihi',
19}
20--- array
21[ 10 .. 20 ]
22--- factorial
23my $x = 1;
24$x *= $_ for (1 .. 9);
25$x;
26