[p5sagit/Excel-Template.git] / t / 021_loop_error.t

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>
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>