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
|
use strict;
use Plack::Test;
use HTTP::Request::Common;
use HTTP::Cookies;
use Test::More;
my $app = sub {
return [ 200, [ 'Content-Type' => 'text/html', 'Set-Cookie' => "ID=123; path=/" ], [ "Hi" ] ];
};
test_psgi app => $app, client => sub {
my $cb = shift;
my $res = $cb->(GET "http://localhost/");
my $cookie_jar = HTTP::Cookies->new;
$cookie_jar->extract_cookies($res);
my @cookies;
$cookie_jar->scan( sub { @cookies = @_ });
ok @cookies;
is $cookies[1], 'ID';
};
done_testing;
|
