projects
/
catagits/Catalyst-Controller-WrapCGI.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
fbf589180b059bab059509b2f8304f3a715ae793
[catagits/Catalyst-Controller-WrapCGI.git]
/
t
/
wrap-cgi.t
1
#!perl
2
3
use strict;
4
use warnings;
5
6
use FindBin '$Bin';
7
use lib "$Bin/lib";
8
9
use Test::More tests => 1;
10
11
use Catalyst::Test 'TestApp';
12
use HTTP::Request::Common;
13
14
my $response = request POST '/cgi-bin/test.cgi', [
15
foo => 'bar',
16
bar => 'baz'
17
];
18
19
is($response->content, 'foo:bar bar:baz', 'POST to CGI');