switch to CGI::Compile, check exit status of non-Perl CGIs, release

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

diff --git a/t/cgibin.t b/t/cgibin.t
index 700d881..e62b1b1 100644 (file)
--- a/t/cgibin.t
+++ b/t/cgibin.t
@@ -71,8 +71,12 @@ SKIP: {
 
 # for some reason the +x is not preserved in the dist
     system "chmod +x $Bin/lib/TestCGIBin/root/cgi-bin/test.sh";
+    system "chmod +x $Bin/lib/TestCGIBin/root/cgi-bin/exit_nonzero.sh";
 
     is(get('/my-bin/test.sh'), "Hello!\n", 'Non-Perl CGI File');
+
+    $response = request GET '/my-bin/exit_nonzero.sh';
+    is $response->code, 500, 'Non-Perl CGI with non-zero exit dies';
 }
 
 done_testing;