Commit | Line | Data |
e374d8da |
1 | #!perl |
2 | |
3 | use lib qw(t) ; |
4 | use common ; |
5 | |
6 | my $tests = [ |
7 | |
8 | { |
9 | # skip => 1, |
10 | name => 'simple scalar', |
11 | data => { |
12 | foo => 'FOO is 3', |
13 | BAR => 'bar is baz', |
14 | }, |
15 | template => <<TEMPLATE, |
16 | [%foo%] |
17 | junk |
18 | [%BAR%] |
19 | TEMPLATE |
20 | expected => <<EXPECTED, |
21 | FOO is 3 |
22 | junk |
23 | bar is baz |
24 | EXPECTED |
25 | }, |
26 | |
27 | { |
28 | # skip => 1, |
29 | name => 'simple chunk - hash data', |
30 | data => { |
31 | foo => { FOO => 3 }, |
32 | bar => { BAR => 4 }, |
33 | }, |
34 | template => <<TEMPLATE, |
35 | [%START foo%] |
36 | [%FOO%] |
37 | [%END foo%] |
38 | [%START bar%][%BAR%][%END bar%] |
39 | TEMPLATE |
40 | expected => <<EXPECTED, |
41 | |
42 | 3 |
43 | |
44 | 4 |
45 | EXPECTED |
46 | }, |
47 | |
48 | { |
49 | # skip => 1, |
50 | name => 'simple chunk - scalar data', |
51 | data => { |
52 | foo => 3, |
53 | bar => { BAR => 4 }, |
54 | }, |
55 | template => <<TEMPLATE, |
56 | [%START foo%] |
57 | FOO |
58 | [%END foo%] |
59 | [%START bar%][%BAR%][%END bar%] |
60 | TEMPLATE |
61 | expected => <<EXPECTED, |
62 | 3 |
63 | 4 |
64 | EXPECTED |
65 | }, |
66 | { |
67 | # skip => 1, |
68 | name => 'simple chunk - array of hashes', |
69 | data => [ |
70 | { |
71 | foo => { FOO => 3 }, |
72 | bar => { BAR => 4 }, |
73 | }, |
74 | { |
75 | foo => { FOO => 6 }, |
76 | bar => { BAR => 'quux' }, |
77 | } |
78 | ], |
79 | template => <<TEMPLATE, |
80 | [%START foo%] |
81 | [%FOO%] |
82 | [%END foo%] |
83 | [%START bar%][%BAR%][%END bar%] |
84 | TEMPLATE |
85 | expected => <<EXPECTED, |
86 | |
87 | 3 |
88 | |
89 | 4 |
90 | |
91 | 6 |
92 | |
93 | quux |
94 | EXPECTED |
95 | }, |
96 | ] ; |
97 | |
98 | template_tester( $tests ) ; |
99 | |
100 | exit ; |
101 | |