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
|
package main;
use strict;
use warnings;
use Test::More tests => 3, import => ['!pass'];
{
use Dancer;
get '/' => sub {
push_header A => 1;
push_header A => 2;
push_header B => 3;
};
}
use Dancer::Test;
response_headers_include [GET => '/'] =>
[ 'Content-Type' => 'text/html', 'A' => 1, 'A' => 2, 'B' => 3 ];
# Dancer::Test::dancer_response does accept an HTTP::Headers object now (issue 755)
use HTTP::Headers;
my $res1 = dancer_response(GET => '/', { headers => HTTP::Headers->new('Content-Type' => 'text/ascii', 'XY' => 'Z')});
is($res1->header('Content-Type'), 'text/html', "Content-Type looks good for dancer_response accepting HTTP::Headers");
my $res2 = dancer_response(GET => '/', { headers => ['Content-Type' => 'text/ascii', 'XY' => 'Z']});
is_deeply($res1->headers_to_array, $res2->headers_to_array, "Headers look good for dancer_response accepting HTTP::Headers");
1;
|
