Commit | Line | Data |
e374d8da |
1 | #!perl |
2 | |
3 | use strict ; |
4 | use lib qw(t) ; |
5 | use common ; |
6 | |
7 | use File::Slurp ; |
8 | use Data::Dumper ; |
9 | |
10 | my $tests = [ |
11 | |
12 | { |
13 | name => 'nested bug [- -]', |
14 | skip => 0, |
15 | opts => { |
16 | pre_delim => qr/\[\-/, |
17 | post_delim => qr/\-\]/, |
18 | }, |
19 | data => { |
20 | widgets => [ |
21 | { |
22 | title => "bart", |
23 | }, |
24 | { |
25 | title => "marge", |
26 | } |
27 | ], |
28 | }, |
29 | template => <<TEMPLATE, |
30 | <table width="100%" border=1> |
31 | [-start widgets-] |
32 | <tr> |
33 | <td>[-anchor-]</td> |
34 | <td> |
35 | <b>[-title-]</b> |
36 | <br>[-description-] |
37 | </td> |
38 | <td>[-escaped_anchor-]</td> |
39 | <td>[-options-]</td> |
40 | </tr> |
41 | [-end widgets-] |
42 | </table> |
43 | TEMPLATE |
44 | |
45 | expected => <<EXPECTED, |
46 | <table width="100%" border=1> |
47 | |
48 | <tr> |
49 | <td></td> |
50 | <td> |
51 | <b>bart</b> |
52 | <br> |
53 | </td> |
54 | <td></td> |
55 | <td></td> |
56 | </tr> |
57 | |
58 | <tr> |
59 | <td></td> |
60 | <td> |
61 | <b>marge</b> |
62 | <br> |
63 | </td> |
64 | <td></td> |
65 | <td></td> |
66 | </tr> |
67 | |
68 | </table> |
69 | EXPECTED |
70 | }, |
71 | { |
72 | name => 'nested bug', |
73 | skip => 0, |
74 | data => { |
75 | widgets => [ |
76 | { |
77 | title => "bart", |
78 | }, |
79 | { |
80 | title => "marge", |
81 | } |
82 | ], |
83 | }, |
84 | template => <<TEMPLATE, |
85 | <table width="100%" border=1> |
86 | [%start widgets%] |
87 | <tr> |
88 | <td>[%anchor%]</td> |
89 | <td> |
90 | <b>[%title%]</b> |
91 | <br>[%description%] |
92 | </td> |
93 | <td>[%escaped_anchor%]</td> |
94 | <td>[%options%]</td> |
95 | </tr> |
96 | [%end widgets%] |
97 | </table> |
98 | TEMPLATE |
99 | |
100 | expected => <<EXPECTED, |
101 | <table width="100%" border=1> |
102 | |
103 | <tr> |
104 | <td></td> |
105 | <td> |
106 | <b>bart</b> |
107 | <br> |
108 | </td> |
109 | <td></td> |
110 | <td></td> |
111 | </tr> |
112 | |
113 | <tr> |
114 | <td></td> |
115 | <td> |
116 | <b>marge</b> |
117 | <br> |
118 | </td> |
119 | <td></td> |
120 | <td></td> |
121 | </tr> |
122 | |
123 | </table> |
124 | EXPECTED |
125 | }, |
126 | { |
127 | name => 'nested bug ,', |
128 | skip => 0, |
129 | opts => { |
130 | }, |
131 | data => { |
132 | widgets => [ |
133 | { |
134 | title => "bart", |
135 | }, |
136 | { |
137 | title => "marge", |
138 | } |
139 | ], |
140 | }, |
141 | template => <<TEMPLATE, |
142 | ,,,,,[%start widgets%] |
143 | ,,,,,,,,,{[%title%]} |
144 | [% s %] |
145 | ,,,,,,,,,[%end widgets%] |
146 | TEMPLATE |
147 | |
148 | expected => <<EXPECTED, |
149 | ,,,,, |
150 | ,,,,,,,,,{bart} |
151 | |
152 | ,,,,,,,,, |
153 | ,,,,,,,,,{marge} |
154 | |
155 | ,,,,,,,,, |
156 | EXPECTED |
157 | }, |
158 | { |
159 | name => 'nested bug short', |
160 | skip => 0, |
161 | data => { |
162 | widgets => [ |
163 | { |
164 | title => "bart", |
165 | }, |
166 | { |
167 | title => "marge", |
168 | } |
169 | ], |
170 | }, |
171 | template => <<TEMPLATE, |
172 | [%start widgets%] |
173 | <b>[%title%]</b> |
174 | [%end widgets%] |
175 | TEMPLATE |
176 | |
177 | expected => <<EXPECTED, |
178 | |
179 | <b>bart</b> |
180 | |
181 | <b>marge</b> |
182 | |
183 | EXPECTED |
184 | }, |
185 | |
186 | ] ; |
187 | |
188 | template_tester( $tests ) ; |
189 | |
190 | exit ; |
191 | |
192 | |