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
111
112
113
114
115
116
117
118
119
|
use strict;
use warnings;
use Test::More import => ['!pass'];
use Plack::Test;
use HTTP::Request::Common;
{
package Test::App::SendAs;
use Dancer2;
set logger => 'Capture';
set serializer => 'YAML';
set template => 'TemplateToolkit';
get '/html' => sub {
send_as html => '<html></html>'
};
get '/json/**' => sub {
send_as JSON => splat;
};
get '/json-utf8/**' => sub {
send_as JSON => splat, { content_type => 'application/json', charset => 'utf-8' };
};
get '/yaml/**' => sub {
my @params = splat;
\@params;
};
get '/sendas/:type?' => sub {
send_as route_parameters->{'type'} => 'test string';
};
}
my $test = Plack::Test->create( Test::App::SendAs->to_app );
subtest "default serializer" => sub {
my $res = $test->request( GET '/yaml/is/useful' );
is $res->code, '200';
is $res->content_type, 'text/x-yaml';
my $expected = <<'YAML';
---
-
- is
- useful
YAML
is $res->content, $expected;
};
subtest "send_as json" => sub {
my $res = $test->request( GET '/json/is/wonderful' );
is $res->code, '200';
is $res->content_type, 'application/json';
is $res->content, '["is","wonderful"]';
};
subtest "send_as json custom content-type" => sub {
my $res = $test->request( GET '/json-utf8/is/wonderful' );
is $res->code, '200';
is $res->content_type, 'application/json';
is $res->content_type_charset, 'UTF-8';
is $res->content, '["is","wonderful"]';
};
subtest "send_as html" => sub {
my $res = $test->request( GET '/html' );
is $res->code, '200';
is $res->content_type, 'text/html';
is $res->content_type_charset, 'UTF-8';
is $res->content, '<html></html>';
};
subtest "send_as error cases" => sub {
my $logger = Test::App::SendAs::app->logger_engine;
{
my $res = $test->request( GET '/sendas/' );
is $res->code, '500', "send_as dies with no defined type";
my $logs = $logger->trapper->read;
like $logs->[0]->{message},
qr!Route exception: Can not send_as using an undefined type!,
".. throws route exception";
}
{
my $res = $test->request( GET '/sendas/jSoN' );
is $res->code, '500',
"send_as dies with incorrectly cased serializer name";
my $logs = $logger->trapper->read;
like $logs->[0]->{message},
qr!Route exception: Unable to load serializer class for jSoN!,
".. throws route exception";
}
{
my $res = $test->request( GET '/sendas/SomeSerializerThatDoesNotExist' );
is $res->code, '500',
"send_as dies when called with non-existant serializer";
my $logs = $logger->trapper->read;
like $logs->[0]->{message},
qr!Route exception: Unable to load serializer class for SomeSerializerThatDoesNotExist!,
".. throws route exception";
}
};
done_testing();
|
