1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# Each filter should have access to blocks/block internals.
use Test::Base;
filters qw(chomp lower);
filters_delay;
plan tests => 8 * blocks;
for my $block (blocks) {
ok not($block->is_filtered);
unlike $block->section, qr/[a-z]/;
like $block->section, qr/^I L/;
like $block->section, qr/\n/;
$block->run_filters;
ok $block->is_filtered;
like $block->section, qr/[a-z]/;
like $block->section, qr/^i l/;
unlike $block->section, qr/\n/;
}
sub lower { lc }
__DATA__
=== One
--- section
I LIKE IKE
=== One
--- section
I LOVE LUCY
|
