blob: 5f1c9b90cb0a69d0f4ab45119e92230b38d4da58 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use strict;
use warnings;
use Test::More;
use Test::Exception;
use Net::HTTP::API::Spec;
ok my $client = Net::HTTP::API::Spec->new_from_spec('t/spec/test1.json');
dies_ok {
$client = Net::HTTP::API::Spec->new_from_spec('foobarbaz');
};
like $@, qr/does not exists/;
my @methods = $client->meta->get_all_net_api_methods();
is scalar @methods, 2;
done_testing;
|
