Commit | Line | Data |
0ba73721 |
1 | package Test::Catalyst::Action::REST::Controller::REST; |
2 | |
930013e6 |
3 | use Moose; |
4 | use namespace::autoclean; |
0ba73721 |
5 | |
930013e6 |
6 | BEGIN { extends 'Catalyst::Controller::REST' } |
0ba73721 |
7 | |
7cc6122a |
8 | __PACKAGE__->config( |
9 | 'map' => { |
10 | 'text/html' => 'YAML::HTML', |
11 | 'text/x-yaml' => 'YAML', |
12 | }); |
13 | |
0ba73721 |
14 | sub test : Local { |
9fb09119 |
15 | my ( $self, $c ) = @_; |
16 | $self->status_ok( $c, |
17 | entity => { test => 'worked', data => $c->req->data } ); |
18 | } |
19 | |
20 | sub test_status_created : Local { |
21 | my ( $self, $c ) = @_; |
22 | $self->status_created( |
23 | $c, |
24 | location => '/rest', |
25 | entity => { status => 'created' } |
26 | ); |
27 | } |
28 | |
bdff70a9 |
29 | sub test_status_multiple_choices : Local { |
30 | my ( $self, $c ) = @_; |
31 | $self->status_multiple_choices( |
32 | $c, |
33 | location => '/rest/choice1', |
34 | entity => { choices => [qw(/rest/choice1 /rest/choice2)] } |
35 | ); |
36 | } |
37 | |
e52456a4 |
38 | sub test_status_found : Local { |
39 | my ( $self, $c ) = @_; |
40 | $self->status_found( |
41 | $c, |
42 | location => '/rest', |
43 | entity => { status => 'found' }, |
44 | ); |
45 | } |
46 | |
9fb09119 |
47 | sub test_status_accepted : Local { |
48 | my ( $self, $c ) = @_; |
259c53c7 |
49 | $self->status_accepted( |
50 | $c, |
51 | location => '/rest', |
52 | entity => { status => "queued", } |
53 | ); |
9fb09119 |
54 | } |
55 | |
56 | sub test_status_no_content : Local { |
57 | my ( $self, $c ) = @_; |
58 | $self->status_no_content($c); |
59 | } |
60 | |
61 | sub test_status_bad_request : Local { |
62 | my ( $self, $c ) = @_; |
63 | $self->status_bad_request( $c, |
64 | message => "Cannot do what you have asked!", ); |
65 | } |
66 | |
550807bc |
67 | sub test_status_forbidden : Local { |
68 | my ( $self, $c ) = @_; |
69 | $self->status_forbidden ( $c, |
70 | message => "access denied", ); |
71 | } |
72 | |
9fb09119 |
73 | sub test_status_not_found : Local { |
74 | my ( $self, $c ) = @_; |
75 | $self->status_not_found( $c, |
76 | message => "Cannot find what you were looking for!", ); |
77 | } |
78 | |
79 | sub test_status_gone : Local { |
80 | my ( $self, $c ) = @_; |
81 | $self->status_gone( $c, |
82 | message => "Document have been deleted by foo", ); |
0ba73721 |
83 | } |
84 | |
0aceaa9b |
85 | sub test_status_see_other : Local { |
86 | my ( $self, $c ) = @_; |
87 | $self->status_see_other( |
88 | $c, |
89 | location => '/rest', |
90 | entity => { somethin => 'happenin' } |
91 | ); |
92 | } |
93 | |
80204218 |
94 | sub opts : Local ActionClass('REST') {} |
95 | |
96 | sub opts_GET { |
97 | my ( $self, $c ) = @_; |
98 | $self->status_ok( $c, entity => { opts => 'worked' } ); |
99 | } |
100 | |
258f6e7c |
101 | sub opts_not_implemented { |
102 | my ( $self, $c ) = @_; |
103 | $c->res->status(405); |
104 | $c->res->header('Allow' => [qw(GET HEAD)]); |
105 | $c->res->body('Not implemented'); |
106 | } |
107 | |
0ba73721 |
108 | 1; |