use warnings;
use strict;
use Compress::Zlib;
=head1 DESCRIPTION
If we do a redirect in a 'before' in the dispatcher, actions should
still get run.
=cut
BEGIN { $ENV{'JIFTY_CONFIG'} = 't/config-Cachable' }
use Jifty::Test::Dist tests => 5;
use Jifty::Test::WWW::Mechanize;
my $server = Jifty::Test->make_server;
my $URL = $server->started_ok;
my $mech = Jifty::Test::WWW::Mechanize->new();
my $request = HTTP::Request->new( GET => "$URL/", ['Accept-Encoding' => 'identity'] );
my $response = $mech->request($request);
my $expected = $mech->response->content;
like($expected, qr/Jifty Test Application/);
# now gzip
$request = HTTP::Request->new( GET => "$URL/", ['Accept-Encoding' => 'gzip'] );
$response = $mech->request( $request );
is($response->header('Content-Encoding'), 'gzip');
like(Compress::Zlib::memGunzip($response->content), qr/Jifty Test Application/);
$request = HTTP::Request->new( GET => "$URL/static/images/pony.jpg", ['Accept-Encoding' => 'gzip'] );
$response = $mech->request( $request );
is($response->header('Content-Encoding'), undef, 'image are not compressed');