added test that makes sure cgis are actually getting invoked with each request

[catagits/Catalyst-Controller-WrapCGI.git] / t / cgibin.t

diff --git a/t/cgibin.t b/t/cgibin.t
index e1798ec..39f0fd8 100644 (file)
--- a/t/cgibin.t
+++ b/t/cgibin.t
@@ -87,4 +87,10 @@ SKIP: {
     is $response->code, 500, 'Non-Perl CGI with non-zero exit dies';
 }
 
+{ $response = get('/my-bin/time.pl');
+  sleep 1;
+  my $response_2 =  get('/my-bin/time.pl');
+  isnt( $response, $response_2, 'cgis are getting invoked each time' );
+}
+
 done_testing;