view release on metacpan or  search on metacpan

t/live_engine_request_parameters.t  view on Meta::CPAN

        'Catalyst::Request parameters' );
}

{
    my $creq;
    ok( my $response = request("http://localhost/dump/request?q=foo%2bbar"),
        'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    ok( eval '$creq = ' . $response->content );
    is $creq->{parameters}->{q}, 'foo+bar', '%2b not double decoded';
}

{
    my $creq;
    ok( my $response = request("http://localhost/dump/request?q=foo=bar"),
        'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    ok( eval '$creq = ' . $response->content );
    is $creq->{parameters}->{q}, 'foo=bar', '= not ignored';