view release on metacpan or  search on metacpan

t/100-basic.t  view on Meta::CPAN

#!perl

use Test::Most;

use HTTP::Request;
use HTTP::Request::Common;

use lib 't/lib';

use Catalyst::Test 'TestApp';

my @Methods =
  map { "is_" . $_ } qw/ get head post put delete connect options trace patch /;

subtest 'HEAD' => sub {

    my ( $res, $c ) = ctx_request( HEAD '/' );
    can_ok( $c->req, @Methods );

    ok $res->is_success, 'HEAD /';

    ok $c->req->is_head, 'is_head';
    ok !$c->req->is_get, '!is_get';

};

subtest 'GET' => sub {

    my ( $res, $c ) = ctx_request( GET '/' );

    ok $res->is_success, 'GET /';

    ok $c->req->is_get, 'is_get';
    ok !$c->req->is_post, '!is_post';

};

subtest 'POST' => sub {

    my ( $res, $c ) = ctx_request( POST '/' );

    ok $res->is_success, 'POST /';

    ok $c->req->is_post, 'is_post';
    ok !$c->req->is_get, '!is_get';

};

subtest 'Unrecognized HTTP method' => sub {

    my ( $res, $c ) = ctx_request( HTTP::Request->new( SPORK => '/' ) );

    ok $c->req->is_unrecognized_method;
};

done_testing;