1#!/usr/bin/env perl
2
3use warnings;
4use strict;
5
6=head1 DESCRIPTION
7
8If we do a redirect in a 'before' in the dispatcher, actions should
9still get run.
10
11=cut
12
13use Jifty::Test::Dist tests => 7;
14use Jifty::Test::WWW::Mechanize;
15
16my $server  = Jifty::Test->make_server;
17
18isa_ok($server, 'Jifty::TestServer');
19
20my $URL     = $server->started_ok;
21my $mech    = Jifty::Test::WWW::Mechanize->new();
22
23$mech->get_ok("$URL/say_hi", "Got right page");
24$mech->content_contains( '<input  type="hidden" name="J:A:F-xxx_name-say_hi" ', 'hidden param in form');
25$mech->fill_in_action_ok('say_hi', greeting => "something");
26ok($mech->click_button(value => "Create"));
27$mech->content_contains("dave, something", "Contains right result");
28
291;
30
31