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