The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil qw(t_cmp);
use lib 't';
use MY::slurp;

# Test non-CSS responses when we've supplemented MIME-Types list
plan tests => 2, need_lwp;

# non-CSS responses are filtered when we add a single new MIME-Type
single_mimetype: {
    my $body  = GET_BODY '/mimetypes/single';
    my $min   = slurp('t/htdocs/minified.txt');
    chomp($min);

    ok( t_cmp($body, $min) );
}

# non-CSS responses are filtered when we add multiple new MIME-Types
multiple_mimetypes: {
    my $body  = GET_BODY '/mimetypes/multiple';
    my $min   = slurp('t/htdocs/minified.txt');
    chomp($min);

    ok( t_cmp($body, $min) );
}