X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestCGIBin%2FController%2FCGIHandler.pm;h=3092f401589284469a92587f5c00bedac6e0932b;hb=9cd473644d9076cfc98c97e72731d5492e9ff7e2;hp=41e20f568764bf1c677c4aea66b42365d31e9ec6;hpb=21a20b7e40ead509ca832db9099a4b76d3d61cd4;p=catagits%2FCatalyst-Controller-WrapCGI.git

diff --git a/t/lib/TestCGIBin/Controller/CGIHandler.pm b/t/lib/TestCGIBin/Controller/CGIHandler.pm
index 41e20f5..3092f40 100644
--- a/t/lib/TestCGIBin/Controller/CGIHandler.pm
+++ b/t/lib/TestCGIBin/Controller/CGIHandler.pm
@@ -2,16 +2,28 @@ package TestCGIBin::Controller::CGIHandler;
 
 use parent 'Catalyst::Controller::CGIBin';
 
+# Turn off log for the non-zero exit test
+sub auto : Private {
+    my ($self, $c) = @_;
+    $c->log->levels() unless $c->debug;
+    1;
+}
+
+sub cgi_path {
+    my ($self, $cgi) = @_;
+    return "my-bin/$cgi";
+}
+
 # try out a forward
 sub dongs : Local Args(0) {
     my ($self, $c) = @_;
-    $c->forward('/cgihandler/CGI_test_pl');
+    $c->forward('/cgihandler/CGI_path__test_pl');
 }
 
 # try resolved forward
 sub mtfnpy : Local Args(0) {
     my ($self, $c) = @_;
-    $c->forward($self->cgi_action('test.pl'));
+    $c->forward($self->cgi_action('path/test.pl'));
 }
 
 1;