Commit | Line | Data |
b94f8e72 |
1 | use warnings; |
2 | use strict; |
3 | use Test::More; |
4 | |
5 | # Test case for reported issue when an action consumes JSON but a |
6 | # POST sends nothing we get a hard error |
7 | |
8 | { |
9 | package MyApp::Controller::Root; |
10 | $INC{'MyApp/Controller/Root.pm'} = __FILE__; |
11 | |
12 | use base 'Catalyst::Controller'; |
13 | |
14 | sub bar :Local Args(0) POST Consumes(JSON) { |
15 | my( $self, $c ) = @_; |
16 | my $foo = $c->req->body_data; |
17 | } |
18 | |
19 | sub end :Private { |
20 | my( $self, $c ) = @_; |
21 | my $body = $c->shift_errors; |
22 | $c->res->body( $body || "No errors"); |
23 | } |
24 | |
25 | package MyApp; |
26 | use Catalyst; |
27 | MyApp->setup; |
28 | } |
29 | |
30 | use HTTP::Request::Common; |
31 | use Catalyst::Test 'MyApp'; |
32 | |
33 | { |
34 | # Test to send no post |
35 | ok my $res = request POST 'root/bar', |
36 | 'Content-Type' => 'application/json'; |
37 | |
38 | like $res->content, qr"Error Parsing POST 'undef'"; |
39 | } |
40 | |
41 | { |
42 | # Test to send bad (malformed JSON) post |
43 | ok my $res = request POST 'root/bar', |
44 | 'Content-Type' => 'application/json', |
45 | 'Content' => 'i am not JSON'; |
46 | |
47 | like $res->content, qr/Error Parsing POST 'i am not JSON'/; |
48 | } |
49 | |
50 | { |
51 | # Test to send bad (malformed JSON) post |
52 | ok my $res = request POST 'root/bar', |
53 | 'Content-Type' => 'application/json', |
54 | 'Content' => '{ "a":"b" }'; |
55 | |
56 | is $res->content, 'No errors'; |
57 | } |
58 | |
59 | done_testing(); |