ditch Data::Dump
[catagits/Catalyst-Action-REST.git] / t / catalyst-action-rest.t
CommitLineData
d34c067a 1package Test::Catalyst::Action::REST;
2
3use FindBin;
4
5use lib ("$FindBin::Bin/../lib");
6
7use strict;
8use warnings;
9
10use Catalyst::Runtime '5.70';
11
12use Catalyst;
13
14__PACKAGE__->config( name => 'Test::Catalyst::Action::REST' );
15__PACKAGE__->setup;
16
89b766ab 17sub test : Local : ActionClass('REST') {
18 my ( $self, $c ) = @_;
d34c067a 19 $c->stash->{'entity'} = 'something';
20}
21
89b766ab 22sub test_GET : Local : ActionClass('REST') {
23 my ( $self, $c ) = @_;
24
25 $c->stash->{'entity'} .= " GET";
d34c067a 26 $c->forward('ok');
27}
28
89b766ab 29sub test_POST : Local : ActionClass('REST') {
30 my ( $self, $c ) = @_;
31
32 $c->stash->{'entity'} .= " POST";
d34c067a 33 $c->forward('ok');
34}
35
89b766ab 36sub test_PUT : Local : ActionClass('REST') {
37 my ( $self, $c ) = @_;
38
39 $c->stash->{'entity'} .= " PUT";
d34c067a 40 $c->forward('ok');
41}
42
89b766ab 43sub test_DELETE : Local : ActionClass('REST') {
44 my ( $self, $c ) = @_;
45
46 $c->stash->{'entity'} .= " DELETE";
d34c067a 47 $c->forward('ok');
48}
49
89b766ab 50sub test_OPTIONS : Local : ActionClass('REST') {
51 my ( $self, $c ) = @_;
52
53 $c->stash->{'entity'} .= " OPTIONS";
d34c067a 54 $c->forward('ok');
55}
56
89b766ab 57sub notreally : Local : ActionClass('REST') {
58}
d34c067a 59
60sub notreally_GET {
89b766ab 61 my ( $self, $c ) = @_;
d34c067a 62
63 $c->stash->{'entity'} = "notreally GET";
64 $c->forward('ok');
65}
66
89b766ab 67sub not_implemented : Local : ActionClass('REST') {
68}
d34c067a 69
70sub not_implemented_GET {
89b766ab 71 my ( $self, $c ) = @_;
d34c067a 72
73 $c->stash->{'entity'} = "not_implemented GET";
74 $c->forward('ok');
75}
76
77sub not_implemented_not_implemented {
89b766ab 78 my ( $self, $c ) = @_;
d34c067a 79
80 $c->stash->{'entity'} = "Not Implemented Handler";
81 $c->forward('ok');
82}
83
fec6d454 84sub not_modified : Local : ActionClass('REST') { }
85
86sub not_modified_GET {
87 my ( $self, $c ) = @_;
88 $c->res->status(304);
89 return 1;
90}
91
92
89b766ab 93sub ok : Private {
94 my ( $self, $c ) = @_;
d34c067a 95
96 $c->res->content_type('text/plain');
89b766ab 97 $c->res->body( $c->stash->{'entity'} );
d34c067a 98}
99
100package main;
101
102use strict;
103use warnings;
d34635d1 104use Test::More tests => 18;
d34c067a 105use FindBin;
d34c067a 106
89b766ab 107use lib ( "$FindBin::Bin/lib", "$FindBin::Bin/../lib" );
d34c067a 108use Test::Rest;
109
110# Should use the default serializer, YAML
89b766ab 111my $t = Test::Rest->new( 'content_type' => 'text/plain' );
d34c067a 112
113use_ok 'Catalyst::Test', 'Test::Catalyst::Action::REST';
114
115foreach my $method (qw(GET DELETE POST PUT OPTIONS)) {
116 my $run_method = lc($method);
89b766ab 117 my $result = "something $method";
d34c067a 118 my $res;
89b766ab 119 if ( grep /$method/, qw(GET DELETE OPTIONS) ) {
120 $res = request( $t->$run_method( url => '/test' ) );
d34c067a 121 } else {
89b766ab 122 $res = request(
123 $t->$run_method(
124 url => '/test',
125 data => { foo => 'bar' }
d34c067a 126 )
127 );
128 }
129 ok( $res->is_success, "$method request succeeded" );
89b766ab 130 is(
131 $res->content,
132 "something $method",
133 "$method request had proper response"
134 );
d34c067a 135}
136
89b766ab 137my $fail_res = request( $t->delete( url => '/notreally' ) );
138is( $fail_res->code, 405, "Request to bad method gets 405 Not Implemented" );
139is( $fail_res->header('allow'), "GET", "405 allow header properly set." );
140
141my $options_res = request( $t->options( url => '/notreally' ) );
142is( $options_res->code, 200, "OPTIONS request handler succeeded" );
143is( $options_res->header('allow'),
144 "GET", "OPTIONS request allow header properly set." );
145
fec6d454 146my $modified_res = request( $t->get( url => '/not_modified' ) );
147is( $modified_res->code, 304, "Not Modified request handler succeeded" );
148
89b766ab 149my $ni_res = request( $t->delete( url => '/not_implemented' ) );
150is( $ni_res->code, 200, "Custom not_implemented handler succeeded" );
151is(
152 $ni_res->content,
153 "Not Implemented Handler",
154 "not_implemented handler had proper response"
155);
d34c067a 156
1571;