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>