Commit | Line | Data |
e374d8da |
1 | #!perl |
2 | |
3 | use lib qw(t) ; |
4 | use common ; |
5 | |
6 | my $tests = [ |
e374d8da |
7 | { |
f5c8badf |
8 | name => 'unknown template data type', |
9 | compile_skip => 1, |
e374d8da |
10 | opts => {}, |
11 | data => qr//, |
12 | template => <<TMPL, |
13 | foo |
14 | TMPL |
15 | expected => <<EXPECT, |
16 | bar |
17 | EXPECT |
18 | error => qr/unknown template data/, |
19 | }, |
e374d8da |
20 | { |
21 | name => 'missing include', |
22 | skip => 0, |
23 | data => {}, |
f5c8badf |
24 | template => '[%INCLUDE foox%]', |
e374d8da |
25 | error => qr/can't find/, |
26 | }, |
e374d8da |
27 | { |
28 | name => 'code data', |
f5c8badf |
29 | compile_skip => 1, |
e374d8da |
30 | skip => 0, |
31 | data => sub { return '' }, |
32 | template => 'bar', |
33 | error => qr/data callback/, |
34 | }, |
e374d8da |
35 | ] ; |
36 | |
37 | template_tester( $tests ) ; |
38 | |
39 | exit ; |
40 | |