root/lang/perl/HTTP-Engine/trunk/t/010_core/request-parameters.t @ 17311

use strict;
use warnings;
use Test::More tests => 1;
use HTTP::Engine::Request;
use HTTP::Engine::RequestBuilder;

my $req = HTTP::Engine::Request->new(
    request_builder => HTTP::Engine::RequestBuilder->new,
);
$req->http_body->param(foo => 'bar');
$req->query_parameters({bar => 'baz'});
is_deeply $req->parameters(), {foo => 'bar', 'bar' => 'baz'};