Commit | Line | Data |
d01e4722 |
1 | BEGIN{ $^W = 0 } |
2 | use strict; |
3 | |
4 | use Test::More tests => 4; |
5 | |
6 | use lib 't'; |
7 | use mock; |
8 | mock::reset; |
9 | |
10 | my $CLASS = 'Excel::Template'; |
11 | use_ok( $CLASS ); |
12 | |
13 | my $object = $CLASS->new( |
14 | file => \*DATA, |
15 | ); |
16 | isa_ok( $object, $CLASS ); |
17 | |
18 | ok( |
19 | $object->param( |
20 | test => [ |
21 | { value => 1 }, |
22 | { value => 2 }, |
23 | [ value => 3 ], |
24 | ], |
25 | ), |
26 | 'Parameters set', |
27 | ); |
28 | |
29 | ok( !$object->write_file( 'filename' ), 'Failed to write file' ); |
30 | |
31 | __DATA__ |
32 | <workbook> |
33 | <worksheet> |
34 | <loop name="test"> |
35 | <cell text="$value" /> |
36 | </loop> |
37 | </worksheet> |
38 | </workbook> |