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
/
oo_run.t
1
use Test::Base;
2
3
my $blocks = Test::Base->new;
4
$blocks->delimiters(qw(%%% ***))->filters('lower');
5
6
plan tests => 3 * $blocks->blocks;
7
8
$blocks->run(sub {
9
my $block = shift;
10
is $block->foo, $block->bar, $block->name;
11
});
12
13
$blocks->run_is('foo', 'bar');
14
$blocks->run_like('foo', qr{x});
15
16
sub lower { lc }
17
18
__DATA__
19
%%% Test
20
*** foo
21
xyz
22
*** bar
23
XYZ