3 use Test::More tests => 4;
9 my $CLASS = 'Excel::Template';
12 my $object = $CLASS->new(
15 isa_ok( $object, $CLASS );
17 ok( my $output = $object->output( 'filename' ), "Something returned" );
19 my $val = <<__END_EXPECTED__;
20 Spreadsheet::WriteExcel::new\\( 'GLOB\\([^)]+\\)' \\)
21 Spreadsheet::WriteExcel::add_format\\( '' \\)
22 Spreadsheet::WriteExcel::close\\( '' \\)
25 like( $output, qr/$val/, 'Calls match up' );