From: Robert Buels <rmb32@cornell.edu>
Date: Mon, 2 Aug 2010 21:59:38 +0000 (-0700)
Subject: added test that makes sure cgis are actually getting invoked with each request
X-Git-Tag: 0.030~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Controller-WrapCGI.git;a=commitdiff_plain;h=604b5dbb05a56ce174d1a0294d33c87763d8c75e

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

diff --git a/t/cgibin.t b/t/cgibin.t
index e1798ec..39f0fd8 100644
--- 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;
diff --git a/t/lib/TestCGIBin/root/cgi-bin/time.pl b/t/lib/TestCGIBin/root/cgi-bin/time.pl
new file mode 100644
index 0000000..563bb5e
--- /dev/null
+++ b/t/lib/TestCGIBin/root/cgi-bin/time.pl
@@ -0,0 +1,4 @@
+#!/usr/bin/perl
+use CGI ':standard';
+print header, time;
+