1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
use Test::Base tests => 5;
my $block1 = [blocks]->[0];
my @values = $block1->grocery;
is scalar(@values), 3,
'check list context';
is_deeply \@values, ['apples', 'oranges', 'beef jerky'],
'list context content';
my $block2 = [blocks]->[1];
is_deeply $block2->todo,
[
'Fix YAML',
'Fix Inline',
'Fix Test::Base',
], 'deep block from index';
my $block3 = [blocks]->[2];
is $block3->perl, 'xxx',
'scalar context';
is_deeply [$block3->perl], ['xxx', 'yyy', 'zzz'],
'deep list compare';
__END__
=== One
--- grocery lines chomp
apples
oranges
beef jerky
=== Two
--- todo lines chomp array
Fix YAML
Fix Inline
Fix Test::Base
=== Three
--- perl eval
return qw(
xxx
yyy
zzz
)
|
