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 filtered ModPerl::Registry output
plan tests => 4, need_lwp;

# MP::Registry, plain text should be un-altered
registry_unaltered: {
    my $res  = GET '/perl-bin/plain.pl';
    my $body = $res->content;
    my $orig = slurp('t/htdocs/test.txt');

    ok( $res->content_type eq 'text/plain' );
    ok( t_cmp($body, $orig) );
}

# MP::Registry, CSS should be minified
registry_minified: {
    my $res  = GET '/perl-bin/css.pl';
    my $body = $res->content;
    my $min  = slurp('t/htdocs/minified.txt');
    chomp($min);

    ok( $res->content_type eq 'text/css' );
    ok( t_cmp($body, $min) );
}