1 # Each filter should have access to blocks/block internals.
4 filters qw(chomp lower);
7 plan tests => 8 * blocks;
9 for my $block (blocks) {
10 ok not($block->is_filtered);
11 unlike $block->section, qr/[a-z]/;
12 like $block->section, qr/^I L/;
13 like $block->section, qr/\n/;
15 ok $block->is_filtered;
16 like $block->section, qr/[a-z]/;
17 like $block->section, qr/^i l/;
18 unlike $block->section, qr/\n/;