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