summaryrefslogblamecommitdiff
path: root/t/spore-method/base.t
blob: 5010c38cf8f66ff9dc0b3e6c3e32e32bc00bdc55 (plain) (tree)





































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

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

like $@, qr/Attribute \(method\) is required/;

ok my $method = Net::HTTP::Spore::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::Spore::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;