added failing test for specifying cgi_dir with MyApp->path_to

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

diff --git a/t/cgibin_root_path.t b/t/cgibin_root_path.t
index 7a17595..20c0e62 100644 (file)
--- a/t/cgibin_root_path.t
+++ b/t/cgibin_root_path.t
@@ -6,7 +6,7 @@ use warnings;
 use FindBin '$Bin';
 use lib "$Bin/lib";
 
-use Test::More tests => 2;
+use Test::More tests => 3;
 
 # Test configurable path root and dir
 { package root_test;
@@ -37,3 +37,18 @@ use Test::More tests => 2;
 
   is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File 2');
 }
+
+# test yet another variation on specifying the root path
+{ package root_test_3;
+
+  use Test::More;
+  use HTTP::Request::Common;
+  use Catalyst::Test 'TestCGIBinRoot3';
+
+  my $response = request POST '/cgi/path/test.pl', [
+      foo => 'bar',
+      bar => 'baz'
+     ];
+
+  is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File 3');
+}