1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::More tests => 4;
use Catalyst::Test 'TestApp';
# test custom MIME types
TestApp->config->{'Plugin::Static::Simple'}->{mime_types} = {
unknown => 'holy/crap',
gif => 'patents/are-evil',
};
ok( my $res = request('http://localhost/files/err.unknown'), 'request ok' );
is( $res->content_type, 'holy/crap', 'custom MIME type ok' );
ok( $res = request('http://localhost/files/bad.gif'), 'request ok' );
is( $res->content_type, 'patents/are-evil', 'custom MIME type overlay ok' );
|
