File: filters.t

package info (click to toggle)
libtest-base-perl 0.79-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 664 kB
  • ctags: 108
  • sloc: perl: 952; makefile: 2
file content (25 lines) | stat: -rw-r--r-- 320 bytes parent folder | download | duplicates (9)
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
use Test::Base;

filters 'upper';
plan tests => 2;

run {
    my $block = shift;
    is($block->one, $block->two);
};

my ($block) = blocks;
is($block->one, "HEY NOW HEY NOW\n");

sub Test::Base::Filter::upper {
    my $self = shift;
    return uc(shift);
}

__END__
===
--- one
Hey now Hey Now

--- two
hEY NoW hEY NoW