t/005_formats.t

   1 use strict;
   2 use warnings;
   3 $|++;
   4
   5 use Test::More tests => 4;
   6
   7 use lib 't';
   8 use mock;
   9 mock->reset;
  10
  11 my $CLASS = 'Excel::Template';
  12 use_ok( $CLASS );
  13
  14 my $object = $CLASS->new(
  15     filename => 't/005.xml',
  16 );
  17 isa_ok( $object, $CLASS );
  18
  19 ok( $object->write_file( 'filename' ), 'Something returned' );
  20
  21 my @calls = mock->get_calls;
  22 is( join( $/, @calls, '' ), <<__END_EXPECTED__, 'Calls match up' );
  23 Spreadsheet::WriteExcel::new( 'filename' )
  24 Spreadsheet::WriteExcel::add_format( '' )
  25 Spreadsheet::WriteExcel::add_format( 'bold', '1' )
  26 Spreadsheet::WriteExcel::add_format( 'hidden', '1' )
  27 Spreadsheet::WriteExcel::add_format( 'italic', '1' )
  28 Spreadsheet::WriteExcel::add_format( 'locked', '1' )
  29 Spreadsheet::WriteExcel::add_format( 'font_shadow', '1' )
  30 Spreadsheet::WriteExcel::add_format( 'font_strikeout', '1' )
  31 Spreadsheet::WriteExcel::add_format( 'font_outline', '1' )
  32 Spreadsheet::WriteExcel::add_format( 'shrink', '1' )
  33 Spreadsheet::WriteExcel::add_format( 'text_wrap', '1' )
  34 Spreadsheet::WriteExcel::add_format( 'text_justlast', '1' )
  35 Spreadsheet::WriteExcel::add_format( 'size', '3' )
  36 Spreadsheet::WriteExcel::add_format( 'num_format', '3' )
  37 Spreadsheet::WriteExcel::add_format( 'underline', '3' )
  38 Spreadsheet::WriteExcel::add_format( 'rotation', '3' )
  39 Spreadsheet::WriteExcel::add_format( 'indent', '3' )
  40 Spreadsheet::WriteExcel::add_format( 'pattern', '3' )
  41 Spreadsheet::WriteExcel::add_format( 'border', '3' )
  42 Spreadsheet::WriteExcel::add_format( 'bottom', '3' )
  43 Spreadsheet::WriteExcel::add_format( 'top', '3' )
  44 Spreadsheet::WriteExcel::add_format( 'left', '3' )
  45 Spreadsheet::WriteExcel::add_format( 'right', '3' )
  46 Spreadsheet::WriteExcel::add_format( 'font', '3' )
  47 Spreadsheet::WriteExcel::add_format( 'color', '3' )
  48 Spreadsheet::WriteExcel::add_format( 'align', '3' )
  49 Spreadsheet::WriteExcel::add_format( 'valign', '3' )
  50 Spreadsheet::WriteExcel::add_format( 'bg_color', '3' )
  51 Spreadsheet::WriteExcel::add_format( 'fg_color', '3' )
  52 Spreadsheet::WriteExcel::add_format( 'border_color', '3' )
  53 Spreadsheet::WriteExcel::add_format( 'bottom_color', '3' )
  54 Spreadsheet::WriteExcel::add_format( 'top_color', '3' )
  55 Spreadsheet::WriteExcel::add_format( 'left_color', '3' )
  56 Spreadsheet::WriteExcel::add_format( 'right_color', '3' )
  57 Spreadsheet::WriteExcel::add_format( 'bold', '1', 'italic', '1' )
  58 Spreadsheet::WriteExcel::add_format( 'bold', '1', 'hidden', '1', 'italic', '1' )
  59 Spreadsheet::WriteExcel::close( '' )
  60 __END_EXPECTED__