adding test case contributed by nebulous

[catagits/Catalyst-Plugin-SubRequest.git] / t / 02subreq.t

diff --git a/t/02subreq.t b/t/02subreq.t
index ce90f22..1d2bc8c 100644 (file)
--- a/t/02subreq.t
+++ b/t/02subreq.t
@@ -1,6 +1,6 @@
 package main;
 
-use Test::More tests => 18;
+use Test::More tests => 21;
 use lib 't/lib';
 use Catalyst::Test 'TestApp';
 use File::stat;
@@ -43,3 +43,9 @@ my $stat = stat($0);
     is( $response->code, 200,                 'OK status code'  );
     is( $response->content, 'foo33',    'Normal request content', );
 }
+
+{
+    ok( my $response = request('/doublesubtest'),    'Double Sub Request'  );
+    is( $response->code, 200,                 'OK status code'  );
+    is( $response->content, '1531633',    'Normal Double request content', ); #we get 153 right now
+}