adding test case contributed by nebulous

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

diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm
index 4f21132..f73a947 100644 (file)
--- a/t/lib/TestApp/Controller/Root.pm
+++ b/t/lib/TestApp/Controller/Root.pm
@@ -60,6 +60,14 @@ sub typesetter : Global {
     $c->res->body($c->res->body());
 }
 
+sub doublesubtest :Global {
+    my ( $self, $c) = @_;
+    $c->res->body(
+      $c->subrequest('/normal/5').
+      $c->subrequest('/normal/6')
+    );
+}
+
 sub end : Private {
     my ( $self, $c ) = @_;
     $c->res->body($c->res->body().'3');