BEGIN{ $^W = 0 }
use strict;
use Test::More tests => 4;
use lib 't';
use mock;
mock::reset;
my $CLASS = 'Excel::Template';
use_ok( $CLASS );
my $object = $CLASS->new(
file => \*DATA,
);
isa_ok( $object, $CLASS );
ok(
$object->param(
test => [
{ value => 1 },
{ value => 2 },
[ value => 3 ],
],
),
'Parameters set',
);
ok( !$object->write_file( 'filename' ), 'Failed to write file' );
__DATA__
<workbook>
<worksheet>
<loop name="test">
<cell text="$value" />
</loop>
</worksheet>
</workbook>