9 use Test::More tests => 3;
11 # Test configurable path root and dir
15 use HTTP::Request::Common;
16 use Catalyst::Test 'TestCGIBinRoot';
18 my $response = request POST '/cgi/path/test.pl', [
23 is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File');
26 # test another variation on specifying the root path
27 { package another_root_test;
30 use HTTP::Request::Common;
31 use Catalyst::Test 'TestCGIBinRoot2';
33 my $response = request POST '/cgi/path/test.pl', [
38 is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File 2');
41 # test yet another variation on specifying the root path
42 { package root_test_3;
45 use HTTP::Request::Common;
46 use Catalyst::Test 'TestCGIBinRoot3';
48 my $response = request POST '/cgi/path/test.pl', [
53 is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File 3');