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 b9e3e16..09de5dd 100644 (file)
--- a/t/lib/TestApp.pm
+++ b/t/lib/TestApp.pm
@@ -1,6 +1,9 @@
 package TestApp;
+use strict;
+use warnings;
+use base qw/Catalyst/;
 
-use Catalyst qw[-Engine=Test SubRequest];
+use Catalyst qw[SubRequest];
 
 __PACKAGE__->config(
     name=>"subrequest test"
@@ -8,29 +11,4 @@ __PACKAGE__->config(
 
 __PACKAGE__->setup();
 
-    sub begin : Private {
-        my ( $self, $c ) = @_;
-        $c->res->body('1');
-    }
-
-    sub subreq : Global {
-        my ( $self, $c ) = @_;
-        $c->log->info("self is ".  ref $self);
-        $c->log->info("Context is ". ref $c);
-        my $subreq= $c->res->body() .
-                        $c->subreq('/normal');
-        $c->res->body($subreq);
-    }
-  
-    sub normal : Global {
-        my ( $self, $c ) = @_;
-        $c->res->body($c->res->body().'2');
-    }
-    
-    sub end : Private {
-        my ( $self, $c ) = @_;
-        $c->res->body($c->res->body().'3');
-    }
-
-
 1;