view release on metacpan or  search on metacpan

t/complex.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

use lib 't/lib';

use Catalyst::Test 'Simplyst';
use HTTP::Request::Common;

is( get('/complex/from_plack/foo'), 'Hello local world', 'app under Local works');
is( get('/globule/foo'), 'Hello globule world', 'app under Global works');
is( get('/chain1/frew/middle/frue/end/foo'), 'Hello chain: frew, frue world', 'app under Chain works');

{
    my $request = POST(
        '/complex/post_content',
        'Content'      => {qw(foo bar baz quux)},
        'Content-Type' => 'application/x-www-form-urlencoded'
    );

    ok( my $response = request($request), 'response received' );
    ok( $response->is_success, 'Response successful 2xx' );
}

{
    my $request = POST(
        '/complex/post_content',
        'Content'      => 'foobar',
        'Content-Type' => 'text/plain'
    );

    ok( my $response = request($request), 'response received' );
    ok( $response->is_success, 'Response successful 2xx' );
}

{
    my $request = POST(
        '/complex/post_content2',
        'Content'      => {qw(foo bar)},
        'Content-Type' => 'application/x-www-form-urlencoded'
    );

    ok( my $response = request($request), 'response received' );
    ok( $response->is_success, 'Response successful 2xx' );
    is( $response->content, 'bar', 'data is correctly parsed out' );
}
done_testing();