git.maemo.org Git - pkg-perl/blob - deb-src/libtest-base-perl/libtest-base-perl-0.54/t/filter_delay.t

   1 # Each filter should have access to blocks/block internals.
   2 use Test::Base;
   3
   4 filters qw(chomp lower);
   5 filters_delay;
   6
   7 plan tests => 8 * blocks;
   8
   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/;
  14     $block->run_filters;
  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/;
  19 }
  20
  21 sub lower { lc }
  22
  23 __DATA__
  24 === One
  25 --- section
  26 I LIKE IKE
  27
  28 === One
  29 --- section
  30 I LOVE LUCY