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
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl
use warnings;
use strict;
use lib ('lib');
use Test::More 'no_plan';
use Petal;
$Petal::DISK_CACHE = 0;
$Petal::MEMORY_CACHE = 0;
$Petal::TAINT = 1;
my $data_dir = 't/data';
my $file = 'children.xml';
my $child1 = {
dir => 'ltr',
lang => 'en',
'xml:lang' => 'en',
uri => 'foo/',
direction => 'ltr',
title => 'Foo'
};
my $child2 = {
dir => 'ltr',
lang => 'en',
'xml:lang' => 'en',
uri => 'bar/',
direction => 'ltr',
title => 'Bar'
};
my $child3 = {
dir => 'ltr',
lang => 'en',
'xml:lang' => 'en',
uri => 'baz/',
direction => 'ltr',
title => 'Baz'
};
my @args = (
self => {
children => [ $child1, $child2, $child3 ]
}
);
my $template = new Petal (base_dir => $data_dir, file => $file);
my $result = $template->process (@args);
like ($result, qr/foo/ => 'contains foo');
like ($result, qr/bar/ => 'contains bar');
like ($result, qr/baz/ => 'contains baz');
like ($result, qr/Foo/ => 'contains Foo');
like ($result, qr/Bar/ => 'contains Bar');
like ($result, qr/Baz/ => 'contains Baz');
|
