Update to work with latest Catalyst and not warn

[catagits/Catalyst-Plugin-SubRequest.git] / t / lib / TestApp.pm

diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm
index fe4b490..09de5dd 100644 (file)
--- a/t/lib/TestApp.pm
+++ b/t/lib/TestApp.pm
@@ -1,4 +1,7 @@
 package TestApp;
+use strict;
+use warnings;
+use base qw/Catalyst/;
 
 use Catalyst qw[SubRequest];
 
@@ -8,35 +11,4 @@ __PACKAGE__->config(
 
 __PACKAGE__->setup();
 
-    sub begin : Private {
-        my ( $self, $c ) = @_;
-        $c->res->body('1');
-    }
-
-    sub subtest : Global {
-        my ( $self, $c ) = @_;
-        my $subreq= $c->res->body().
-                    $c->subreq('/normal/4');
-        $c->res->body($subreq);
-    }
-  
-    sub normal : Global {
-        my ( $self, $c, $arg ) = @_;
-        $c->res->body($c->res->body().$arg);
-    }
-    
-    sub subtest_params : Global {
-        my ( $self, $c ) = @_;
-        my $before = $c->req->params->{value};
-        my $subreq = $c->subreq('/normal/2');
-        my $after = $c->req->params->{value};
-        $c->res->body($c->res->body().$after);
-    }
-
-    sub end : Private {
-        my ( $self, $c ) = @_;
-        $c->res->body($c->res->body().'3');
-    }
-
-
 1;