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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
use strict;
use warnings;
use Dancer::ModuleLoader;
use Test::More import => ['!pass'];
plan tests => 16;
{
package Webservice;
use Dancer;
use Dancer::Plugin::REST;
resource user => 'get' => \&on_get_user,
'create' => \&on_create_user,
'delete' => \&on_delete_user,
'update' => \&on_update_user;
my $users = {};
my $last_id = 0;
sub on_get_user {
my $id = params->{'id'};
return status_bad_request('id is missing') if !defined $users->{$id};
status_ok( { user => $users->{$id} } );
}
sub on_create_user {
my $id = ++$last_id;
my $user = params('body');
$user->{id} = $id;
$users->{$id} = $user;
status_created( { user => $users->{$id} } );
}
sub on_delete_user {
my $id = params->{'id'};
my $deleted = $users->{$id};
delete $users->{$id};
status_accepted( { user => $deleted } );
}
sub on_update_user {
my $id = params->{'id'};
my $user = $users->{$id};
return status_not_found("user undef") unless defined $user;
$users->{$id} = { %$user, %{ params('body') } };
status_accepted { user => $users->{$id} };
}
}
use Dancer::Test;
my $r = dancer_response( GET => '/user/1' );
is $r->{status}, 400, 'HTTP code is 400';
is $r->{content}->{error}, 'id is missing', 'Valid content';
$r = dancer_response( POST => '/user', { body => { name => 'Alexis' } } );
is $r->{status}, 201, 'HTTP code is 201';
is_deeply $r->{content}, { user => { id => 1, name => "Alexis" } },
"create user works";
$r = dancer_response( GET => '/user/1' );
is $r->{status}, 200, 'HTTP code is 200';
is_deeply $r->{content}, { user => { id => 1, name => 'Alexis' } },
"user 1 is defined";
$r = dancer_response(
PUT => '/user/1',
{ body => {
nick => 'sukria',
name => 'Alexis Sukrieh'
}
}
);
is $r->{status}, 202, 'HTTP code is 202';
is_deeply $r->{content},
{ user => { id => 1, name => 'Alexis Sukrieh', nick => 'sukria' } },
"user 1 is updated";
$r = dancer_response(
PUT => '/user/23',
{ body => {
nick => 'john doe',
name => 'John Doe'
}
}
);
is $r->{status}, 404, 'HTTP code is 404';
is_deeply $r->{content}->{error}, 'user undef', 'valid content';
$r = dancer_response( DELETE => '/user/1' );
is_deeply $r->{content},
{ user => { id => 1, name => 'Alexis Sukrieh', nick => 'sukria' } },
"user 1 is deleted";
is $r->{status}, 202, 'HTTP code is 202';
$r = dancer_response( GET => '/user/1' );
is $r->{status}, 400, 'HTTP code is 400';
is_deeply $r->{content}->{error}, 'id is missing', 'valid response';
$r = dancer_response( POST => '/user', { body => { name => 'Franck Cuny' } } );
is_deeply $r->{content}, { user => { id => 2, name => "Franck Cuny" } },
"id is correctly increased";
is $r->{status}, 201, 'HTTP code is 201';
|
