Static::Simple, added failing test for subrequest NEXT problem

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

diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm
index ff23ab8..a419d10 100644 (file)
--- a/t/lib/TestApp.pm
+++ b/t/lib/TestApp.pm
@@ -9,7 +9,13 @@ TestApp->config(
     name => 'TestApp',\r
 );\r
 \r
-TestApp->setup( qw/Static::Simple/ );\r
+my @plugins = qw/-Debug Static::Simple/;\r
+\r
+# load the SubRequest plugin if available\r
+eval { require Catalyst::Plugin::SubRequest; };\r
+push @plugins, 'SubRequest' unless ($@);\r
+\r
+TestApp->setup( @plugins );\r
 \r
 sub incpath_generator {\r
     my $c = shift;\r
@@ -23,4 +29,16 @@ sub default : Private {
     $c->res->output( 'default' );\r
 }\r
 \r
+sub subtest : Local {\r
+    my ( $self, $c ) = @_;\r
+\r
+    $c->res->output( $c->subreq('/subtest2') );\r
+}\r
+\r
+sub subtest2 : Local {\r
+    my ( $self, $c ) = @_;\r
+    \r
+    $c->res->output( 'subtest2 ok' );\r
+}\r
+\r
 1;\r