added cgi_chain_root

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

diff --git a/t/cgibin_chain_root.t b/t/cgibin_chain_root.t
new file mode 100644 (file)
index 0000000..cc0c784
--- /dev/null
+++ b/t/cgibin_chain_root.t
@@ -0,0 +1,21 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin '$Bin';
+use lib "$Bin/lib";
+
+use Test::More tests => 1;
+
+use Catalyst::Test 'TestCGIBinChainRoot';
+use HTTP::Request::Common;
+
+# Test configurable path root and dir, and Chained root
+
+my $response = request POST '/cgi/path/test.pl', [
+    foo => 'bar',
+    bar => 'baz',
+];
+
+is($response->content, 'foo:bar bar:baz from_chain:from_chain', 'POST to Perl CGI File');