Commit | Line | Data |
e374d8da |
1 | #!perl |
2 | |
3 | use lib qw(t) ; |
4 | use common ; |
5 | |
6 | my $tests = [ |
7 | |
8 | { |
9 | name => 'top level - scalar data', |
10 | data => 'bar', |
11 | template => <<TEMPLATE, |
12 | junk |
13 | TEMPLATE |
14 | expected => 'bar', |
15 | }, |
16 | { |
17 | name => 'top level - array data', |
18 | data => [ |
19 | "foo\n", |
20 | "bar\n", |
21 | ], |
22 | template => <<TEMPLATE, |
23 | junk |
24 | TEMPLATE |
25 | expected => <<EXPECTED, |
26 | foo |
27 | bar |
28 | EXPECTED |
29 | }, |
30 | { |
31 | name => 'top level - blessed array data', |
32 | data => bless( [ |
33 | "foo\n", |
34 | "bar\n", |
35 | ] ), |
36 | template => <<TEMPLATE, |
37 | junk |
38 | TEMPLATE |
39 | expected => <<EXPECTED, |
40 | foo |
41 | bar |
42 | EXPECTED |
43 | }, |
44 | { |
45 | name => 'top level - code data', |
46 | data => sub { \uc ${$_[0]} }, |
47 | template => <<TEMPLATE, |
48 | junk |
49 | TEMPLATE |
50 | expected => <<EXPECTED, |
51 | JUNK |
52 | EXPECTED |
53 | }, |
54 | ] ; |
55 | |
56 | template_tester( $tests ) ; |
57 | |
58 | exit ; |
59 | |