X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FExternalCatty.pm;fp=t%2Flib%2FExternalCatty.pm;h=7b754ae41673ced8d0aa8f3f82ebcd518cf20c8c;hb=97ae89ab316de422a55b3b3252ab4dbabfcdbdcd;hp=da573f299f1a070184bd90805f80fc467bb14df9;hpb=affa35d5063fbeb1ca9ccc5bff2372b583c8575f;p=catagits%2FTest-WWW-Mechanize-Catalyst.git

diff --git a/t/lib/ExternalCatty.pm b/t/lib/ExternalCatty.pm
index da573f2..7b754ae 100644
--- a/t/lib/ExternalCatty.pm
+++ b/t/lib/ExternalCatty.pm
@@ -13,6 +13,14 @@ sub default : Private {
     $c->response->output( html( 'Root', 'Hello, test ☺!' ) );
 }
 
+# redirect to a redirect
+sub hello: Global {
+    my ( $self, $context ) = @_;
+    my $where = $context->uri_for('/');
+    $context->response->redirect($where);
+    return;
+}
+
 sub html {
     my ( $title, $body ) = @_;
     return qq[