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
|
use warnings;
use strict;
use Test::More;
# Test case for reported issue when an action consumes JSON but a
# POST sends nothing we get a hard error
{
package MyApp::Controller::Root;
$INC{'MyApp/Controller/Root.pm'} = __FILE__;
use base 'Catalyst::Controller';
sub bar :Local Args(0) POST Consumes(JSON) {
my( $self, $c ) = @_;
my $foo = $c->req->body_data;
}
sub end :Private {
my( $self, $c ) = @_;
my $body = $c->shift_errors;
$c->res->body( $body || "No errors");
}
package MyApp;
use Catalyst;
MyApp->setup;
}
use HTTP::Request::Common;
use Catalyst::Test 'MyApp';
{
# Test to send no post
ok my $res = request POST 'root/bar',
'Content-Type' => 'application/json';
like $res->content, qr"Error Parsing POST 'undef'";
}
{
# Test to send bad (malformed JSON) post
ok my $res = request POST 'root/bar',
'Content-Type' => 'application/json',
'Content' => 'i am not JSON';
like $res->content, qr/Error Parsing POST 'i am not JSON'/;
}
{
# Test to send bad (malformed JSON) post
ok my $res = request POST 'root/bar',
'Content-Type' => 'application/json',
'Content' => '{ "a":"b" }';
is $res->content, 'No errors';
}
done_testing();
|
