Add the following packages libalgorithm-diff-perl libspiffy-perl libtext-diff-perl...
[pkg-perl] / deb-src / libtest-base-perl / libtest-base-perl-0.54 / t / filters-append.t
1 use Test::Base tests => 2;
2
3 filters qw(chomp +bar foo);
4
5 is next_block->text, "this,foo,that,bar";
6 # 2nd test is needed
7 is next_block->text, "this,foo,that,bar";
8
9 sub foo { $_[0] . ",foo" } 
10 sub bar { $_[0] . ",bar" } 
11 sub that { $_[0] . ",that" } 
12
13 __DATA__
14 ===
15 --- text that
16 this
17 ===
18 --- text that
19 this