1############################################################################### 2# 3# Tests for Excel::Writer::XLSX::Package::ContentTypes methods. 4# 5# Copyright 2000-2021, John McNamara, jmcnamara@cpan.org 6# 7 8use lib 't/lib'; 9use TestFunctions qw(_new_object); 10use strict; 11use warnings; 12use Excel::Writer::XLSX::Package::ContentTypes; 13 14use Test::More tests => 1; 15 16############################################################################### 17# 18# Tests setup. 19# 20my $expected; 21my $caption; 22my $got; 23my $obj = _new_object( \$got, 'Excel::Writer::XLSX::Package::ContentTypes' ); 24 25 26############################################################################### 27# 28# Test the _write_override() method. 29# 30$caption = " \tContentTypes: _write_override()"; 31$expected = '<Override PartName="/docProps/core.xml" ContentType="app..."/>'; 32 33$obj->_write_override( '/docProps/core.xml', 'app...' ); 34 35is( $got, $expected, $caption ); 36 37__END__ 38 39 40