1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
use strict;
use warnings;
use Test::More;
use Test::Exception;
use lib ('t/lib');
use TestAPI;
ok my $api = TestAPI->new(), 'api object created';
for my $role (qw/UserAgent Format Authentication Serialization Request/) {
ok $api->meta->does_role('MooseX::Net::API::Role::' . $role),
'does role ' . $role;
}
# test fetch list of users
$api->api_useragent->add_handler(
'request_send' => sub {
my $request = shift;
is $request->method, 'GET', 'GET request';
my $res = HTTP::Response->new(200);
$res->content('[{"name":"eris"}]');
$res;
}
);
ok my ($content, $res) = $api->users(), 'api call success';
is $res->code, 200, 'http code as expected';
is_deeply $content, [{name => 'eris'}], 'got a list of users';
# test fetch list of one user
$api->api_useragent->remove_handler('request_send');
$api->api_useragent->add_handler(
'request_send' => sub {
my $request = shift;
is $request->method, 'GET', 'GET request';
is $request->uri, 'http://exemple.com/user/eris.json',
'valid url generated';
my $res = HTTP::Response->new(200);
$res->content('{"name":"eris"}');
$res;
}
);
ok $content = $api->user(user_name => 'eris'), 'api call success';
is_deeply $content, {name => 'eris'}, 'valid user content';
# test to create a user
$api->api_useragent->remove_handler('request_send');
$api->api_useragent->add_handler(
'request_send' => sub {
my $request = shift;
is $request->method, 'POST', 'POST request';
is $request->content,
JSON::encode_json({name => 'eris', dob => '01/02/1900'}),
'got valid content in POST';
my $res = HTTP::Response->new(201);
$res->content('{"status":"ok"}');
$res;
}
);
($content, $res) = $api->add_user(name => 'eris', dob => '01/02/1900');
ok $content, 'got content';
is $res->code, 201, 'code as expected';
# test to update a user
$api->api_useragent->remove_handler('request_send');
$api->api_useragent->add_handler(
'request_send' => sub {
my $request = shift;
my $res = HTTP::Response->new(201);
$res->content('{"status":"ok"}');
$res;
}
);
($content, $res) = $api->update_user(name => 'eris', dob => '02/01/1900');
ok $content, 'got content after update';
is $res->code, 201, 'code as expected';
# test to delete a user
$api->api_useragent->remove_handler('request_send');
$api->api_useragent->add_handler(
'request_send' => sub{
my $request = shift;
my $res = HTTP::Response->new(204);
$res;
}
);
($content, $res) = $api->delete_user(name => 'eris');
is $res->code, 204, 'code as expected';
done_testing;
|
