1use Test::Base tests => 6;
2
3my @lines1 = [blocks]->[0]->text1;
4ok @lines1 == 3;
5is_deeply
6\@lines1,
7[
8    "One\n",
9    "Two\n",
10    "Three \n",
11];
12
13my @lines2 = [blocks]->[0]->text2;
14ok @lines2 == 3;
15is_deeply
16\@lines2,
17[
18    "Three",
19    "Two",
20    "One",
21];
22
23is ref([blocks]->[0]->text3), 'ARRAY';
24is scalar(@{[blocks]->[0]->text3}), 0;
25
26__END__
27=== One
28--- text1 lines
29One
30Two
31Three
32--- text2 lines chomp
33Three
34Two
35One
36--- text3 lines array
37