A test for $c->req smashing

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

diff --git a/t/02subreq.t b/t/02subreq.t
index b5bf145..c7cf361 100644 (file)
--- a/t/02subreq.t
+++ b/t/02subreq.t
@@ -1,10 +1,9 @@
 package main;
 
-use Test::More tests => 6;
+use Test::More tests => 15;
 use lib 't/lib';
 use Catalyst::Test 'TestApp';
 use File::stat;
-use File::Slurp;
 use HTTP::Date;
 
 my $stat = stat($0);
@@ -21,3 +20,21 @@ my $stat = stat($0);
     is( $response->content, '11433',    'Normal request content', );
 }
 
+{
+    ok( my $response = request('/subtest_params?value=abc'), 'Params Sub Request' );
+    is( $response->code, 200, 'OK status code' );
+    is( $response->content, '1abc3', 'Normal request content' );
+}
+
+{
+    ok( my $response = request('/subtest_req'), 'Sub request not stomping original request object' );
+    is( $response->code, 200, 'OK status code' );
+    is( $response->content, '/subtest_req', 'Normal request content' );
+}
+
+{
+    ok( my $response = request('/subtest_full_response'),    'Sub Reuqest returning full response object'  );
+    is( $response->code, 200,                 'OK status code'  );
+    is( $response->content, '1text/csv3',    'Normal request content', );
+}
+