9 use Test::More tests => 4;
11 use Catalyst::Test 'TestCGIBin';
12 use HTTP::Request::Common;
14 my $response = request POST '/cgi-bin/path/test.pl', [
19 is($response->content, 'foo:bar bar:baz', 'POST to Perl CGI File');
21 $response = request POST '/cgihandler/dongs', [
26 is($response->content, 'foo:bar bar:baz',
27 'POST to Perl CGI File through a forward');
29 $response = request POST '/cgihandler/mtfnpy', [
34 is($response->content, 'foo:bar bar:baz',
35 'POST to Perl CGI File through a forward via cgi_action');
38 skip "Can't run shell scripts on non-*nix", 1
39 if $^O eq 'MSWin32' || $^O eq 'VMS';
41 is(get('/cgi-bin/test.sh'), "Hello!\n", 'Non-Perl CGI File');