path: root/t/04_apimethod.t

use strict;
use warnings;
use Test::More;
use Test::Exception;
use Net::HTTP::API::Meta::Method;

dies_ok {
    Net::HTTP::API::Meta::Method->wrap(
        name         => 'test_method',
        package_name => 'test::api',
        body         => sub {1},
    );
}
"missing some params";

ok my $method = Net::HTTP::API::Meta::Method->wrap(
    name         => 'test_method',
    package_name => 'test::api',
    body         => sub {1},
    method       => 'GET',
    path         => '/user/',
  ),
  'method created';

is $method->method, 'GET', 'method is GET';

ok $method = Net::HTTP::API::Meta::Method->wrap(
    name         => 'test_method',
    package_name => 'test::api',
    method       => 'GET',
    path         => '/user/',
    params       => [qw/name id street/],
    required     => [qw/name id/],
);

done_testing;