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
/
next.t
1
use Test::Base tests => 10;
2
3
for (1..2) {
4
is next_block->foo, 'This is foo';
5
is next_block->bar, 'This is bar';
6
7
while (my $block = next_block) {
8
pass;
9
}
10
}
11
12
__DATA__
13
=== One
14
--- foo chomp
15
This is foo
16
=== Two
17
--- bar chomp
18
This is bar
19
=== Three
20
=== Four
21
=== Five