Dont use Catalyst::Test for handling remote apps (CATALYST_SERVER)

[catagits/Test-WWW-Mechanize-Catalyst.git] / t / lib / ExternalCatty.pm

diff --git a/t/lib/ExternalCatty.pm b/t/lib/ExternalCatty.pm
index da573f2..7b754ae 100644 (file)
--- 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[