projects
/
p5sagit/Excel-Template.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b87e4cfe8f222ad6daf0ab8b839befd5245944e1
[p5sagit/Excel-Template.git]
/
t
/
021_loop_error.t
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>