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
|
package main;
use strict;
use warnings;
use Test::More tests => 4, import => ['!pass'];
{
use Dancer;
get '/set_one_cookie' => sub {
set_cookie "a" => "b";
};
get '/set_two_cookies' => sub {
set_cookie "a" => "b", http_only => 0;
set_cookie "c" => "d";
};
}
use Dancer::Test;
{
note "Testing one cookie";
my $req = [GET => '/set_one_cookie'];
route_exists $req;
response_headers_include $req => [
'Content-Type' => 'text/html',
'Set-Cookie' => 'a=b; path=/; HttpOnly'
];
}
{
note "Testing two cookies";
my $req = [GET => '/set_two_cookies'];
route_exists $req;
response_headers_include $req => [
'Content-Type' => 'text/html',
'Set-Cookie' => 'a=b; path=/',
'Set-Cookie' => 'c=d; path=/; HttpOnly',
];
}
1;
|
