use FindBin;
use lib "$FindBin::Bin/lib";
-use Test::More tests => 28;
+use Test::More tests => 29;
use Catalyst::Test 'TestApp';
use Catalyst::Request;
my $creq;
my $parameters = {
- 'a' => [qw(A b C d E f G)],
- '%' => [ '%', '"', '& - &' ],
+ 'a' => [qw(A b C d E f G)],
+ '%' => [ '%', '"', '& - &' ],
+ 'blank' => '',
};
my $request = POST(
my $creq;
my $parameters = {
- 'url' => 'http://www.google.com',
+ 'url' => 'http://www.google.com',
+ 'blank' => '',
};
my $request = POST( 'http://localhost/dump/request',
my $creq;
my $parameters = {
- a => 1,
+ a => 1,
+ blank => '',
};
my $request = POST(
ok( my $response = request($request), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
is( $creq->{uri}->query, 'query_string', 'Catalyst::Request POST query_string' );
+ is_deeply( $creq->{parameters}, $parameters, 'Catalyst::Request parameters' );
ok( $response = request('http://localhost/dump/request/a/b?x=1&y=1&z=1'), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );