view release on metacpan or  search on metacpan

t/005_formats.t  view on Meta::CPAN

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(
    filename => 't/005.xml',
);
isa_ok( $object, $CLASS );

ok( $object->write_file( 'filename' ), 'Something returned' );

my @calls = mock::get_calls;
is( join( $/, @calls, '' ), <<__END_EXPECTED__, 'Calls match up' );
Spreadsheet::WriteExcel::new( 'filename' )
Spreadsheet::WriteExcel::add_format( '' )
Spreadsheet::WriteExcel::add_format( 'bold', '1' )
Spreadsheet::WriteExcel::add_format( 'hidden', '1' )
Spreadsheet::WriteExcel::add_format( 'italic', '1' )
Spreadsheet::WriteExcel::add_format( 'locked', '1' )
Spreadsheet::WriteExcel::add_format( 'font_outline', '1' )
Spreadsheet::WriteExcel::add_format( 'font_shadow', '1' )
Spreadsheet::WriteExcel::add_format( 'font_strikeout', '1' )
Spreadsheet::WriteExcel::add_format( 'shrink', '1' )
Spreadsheet::WriteExcel::add_format( 'text_wrap', '1' )
Spreadsheet::WriteExcel::add_format( 'text_justlast', '1' )
Spreadsheet::WriteExcel::add_format( 'size', '3' )
Spreadsheet::WriteExcel::add_format( 'num_format', '3' )
Spreadsheet::WriteExcel::add_format( 'underline', '3' )
Spreadsheet::WriteExcel::add_format( 'rotation', '3' )
Spreadsheet::WriteExcel::add_format( 'indent', '3' )
Spreadsheet::WriteExcel::add_format( 'pattern', '3' )
Spreadsheet::WriteExcel::add_format( 'border', '3' )
Spreadsheet::WriteExcel::add_format( 'bottom', '3' )
Spreadsheet::WriteExcel::add_format( 'top', '3' )
Spreadsheet::WriteExcel::add_format( 'left', '3' )
Spreadsheet::WriteExcel::add_format( 'right', '3' )
Spreadsheet::WriteExcel::add_format( 'font', '3' )
Spreadsheet::WriteExcel::add_format( 'color', '3' )
Spreadsheet::WriteExcel::add_format( 'align', '3' )
Spreadsheet::WriteExcel::add_format( 'valign', '3' )
Spreadsheet::WriteExcel::add_format( 'bg_color', '3' )
Spreadsheet::WriteExcel::add_format( 'fg_color', '3' )
Spreadsheet::WriteExcel::add_format( 'border_color', '3' )
Spreadsheet::WriteExcel::add_format( 'bottom_color', '3' )
Spreadsheet::WriteExcel::add_format( 'top_color', '3' )
Spreadsheet::WriteExcel::add_format( 'left_color', '3' )
Spreadsheet::WriteExcel::add_format( 'right_color', '3' )
Spreadsheet::WriteExcel::add_format( 'bold', '1', 'italic', '1' )
Spreadsheet::WriteExcel::add_format( 'bold', '1', 'hidden', '1', 'italic', '1' )
Spreadsheet::WriteExcel::close( '' )
__END_EXPECTED__