Commit | Line | Data |
e374d8da |
1 | #!perl |
2 | |
3 | use lib qw(t) ; |
4 | use common ; |
5 | |
6 | my $tests = [ |
7 | |
8 | { |
9 | name => 'unknown data type', |
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 | }, |
20 | |
21 | { |
22 | name => 'missing include', |
23 | skip => 0, |
24 | data => {}, |
25 | template => '[%INCLUDE foo%]', |
26 | error => qr/can't find/, |
27 | }, |
28 | |
29 | { |
30 | name => 'code data', |
31 | skip => 0, |
32 | data => sub { return '' }, |
33 | template => 'bar', |
34 | error => qr/data callback/, |
35 | }, |
36 | |
37 | |
38 | ] ; |
39 | |
40 | template_tester( $tests ) ; |
41 | |
42 | exit ; |
43 | |