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
|
use Test::More import => ['!pass'];
use strict;
use warnings;
use Dancer ':tests';
use Dancer::Test;
BEGIN {
plan skip_all => 'YAML or YAML::XS is needed to run this test'
unless Dancer::ModuleLoader->load('YAML::XS')
or Dancer::ModuleLoader->load('YAML');
plan skip_all => 'JSON is needed to run this test'
unless Dancer::ModuleLoader->load('JSON');
}
plan tests => 10;
Dancer::ModuleLoader->load('YAML::XS')
and config->{engines}->{YAML}->{module} = 'YAML::XS';
setting serializer => 'mutable';
get '/' => sub { { foo => 1 } };
post '/' => sub { request->params };
post '/echo' => sub { params };
for my $ct (qw/Accept Accept-Type/) {
my $res = dancer_response(
GET => '/',
{
headers => [ $ct => 'application/json' ]
}
);
is_deeply( from_json( $res->content ), { foo => 1 } );
is $res->header('Content-Type'), 'application/json';
}
my $res = dancer_response(
POST => '/',
{
params => { foo => 42 },
headers => [
'Content-Type' => 'text/x-yaml',
'Accept-Type' => 'text/x-yaml'
]
}
);
is_deeply(from_yaml($res->content), {foo => 42});
is $res->header('Content-Type'), 'text/x-yaml';
# Make sure to grok correct (de)serializer for body params
# when the Content-Type is as supported media type with additional
# parameters.
my $data = { bar => 4711 };
$res = dancer_response(
POST => '/echo',
{
body => to_yaml($data), # make sure to stringify
# Specifying this content_type is redundant but dancer_response
# has a bug in that it does not take the Content-Type of the
# headers before falling back to
# application/x-www-form-urlencoded :(
content_type => 'text/x-yaml; charset=utf-8',
headers => [
'Content-Type' => 'text/x-yaml; charset=utf-8',
]
}
);
is_deeply( from_yaml( $res->content ), $data );
is $res->header('Content-Type'), 'text/x-yaml; charset=utf-8';
# We were incorrectly using 'Content-Type' also for responses although
# the user told us in 'Accept' to use a different format.
$res = dancer_response(
POST => '/echo',
{
body => to_json($data), # make sure to stringify
# Specifying this content_type is redundant but dancer_response
# has a bug in that it does not take the Content-Type of the
# headers before falling back to
# application/x-www-form-urlencoded :(
content_type => 'application/json; charset=utf-8',
headers => [
'Content-Type' => 'application/json; charset=utf-8',
'Accept' => 'text/x-yaml; charset=utf-8',
]
}
);
is_deeply( from_yaml( $res->content ), $data );
is $res->header('Content-Type'), 'text/x-yaml; charset=utf-8';
|
