X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcgibin.t;h=0e8179d68378cc23c342b5e01f2660bfa33967b6;hb=39efca215618321a8d84c68561e2b025d94a31d5;hp=e1798ecec2de498ab3d975516ae8c91e27db442d;hpb=9e040aebffbc0138554c21c3122dbd86b919d246;p=catagits%2FCatalyst-Controller-WrapCGI.git

diff --git a/t/cgibin.t b/t/cgibin.t
index e1798ec..0e8179d 100644
--- a/t/cgibin.t
+++ b/t/cgibin.t
@@ -62,7 +62,7 @@ is($response->content, 'foo:bar bar:baz',
     'POST to Perl CGI File through a forward via cgi_action');
 
 $response = request '/my-bin/path/testdata.pl';
-is($response->content, "testing\n",
+like($response->content, qr/^testing\r?\n\z/,
     'scripts with __DATA__ sections work');
 
 $response = request '/my-bin/pathinfo.pl/path/info';
@@ -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;