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
/
parentheses.t
1
use Test::Base tests => 17;
2
3
sub some_text { 'This is some text' };
4
5
my $b = first_block;
6
is $b->foo, $b->bar, $b->name;
7
is $b->foo, some_text();
8
9
run {
10
my $b = shift;
11
ok defined $b->foo;
12
is @{[$b->foo]}, 1;
13
ok length $b->foo;
14
};
15
16
__DATA__
17
18
=== Parens clarify section
19
--- (foo) some_text
20
--- (bar) some_text
21
22
===
23
--- (foo: some text
24
25
===
26
--- foo)
27
some text
28
29
===
30
--- (foo): some text
31
32
===
33
--- (foo) split join: some text
34