projects
/
pkg-perl
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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