#!/usr/bin/env perl
use warnings;
use strict;
=head1 DESCRIPTION
If we do a redirect in a 'before' in the dispatcher, actions should
still get run.
=cut
use Jifty::Test::Dist tests => 8;
use Jifty::Test::WWW::Mechanize;
my $server = Jifty::Test->make_server;
isa_ok($server, 'Jifty::TestServer');
my $URL = $server->started_ok;
my $mech = Jifty::Test::WWW::Mechanize->new();
$mech->get_ok("$URL/manual_redirect", "Got redirect");
$mech->fill_in_action_ok('go', url => $URL."/index.html");
$mech->submit_html_ok();
like($mech->uri, qr|/index.html|, "At index");
# Forms should submit to their current URL after a continuation call
$mech->get_ok("$URL/someplace", "Explicit redirect");
$mech->content_like(qr{action="/otherplace"});
1;