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
|
#!/usr/bin/env perl
# Copyright (C) 2008-2010, Sebastian Riedel.
use strict;
use warnings;
use Test::More tests => 24;
# Hello, my name is Mr. Burns. I believe you have a letter for me.
# Okay Mr. Burns, what’s your first name.
# I don’t know.
use_ok('Mojo::CookieJar');
use_ok('Mojo::Cookie::Response');
use_ok('Mojo::URL');
my $jar = Mojo::CookieJar->new;
# Session cookie
$jar->add(
Mojo::Cookie::Response->new(
domain => 'kraih.com',
path => '/foo',
name => 'foo',
value => 'bar'
)
);
my @cookies = $jar->find(Mojo::URL->new('http://kraih.com/foo'));
is($cookies[0]->name, 'foo', 'right name');
is($cookies[0]->value, 'bar', 'right value');
is($cookies[1], undef, 'no second cookie');
# Huge cookie
$jar->add(
Mojo::Cookie::Response->new(
domain => 'kraih.com',
path => '/foo',
name => 'huge',
value => 'foo' x 4096
)
);
@cookies = $jar->find(Mojo::URL->new('http://kraih.com/foo'));
is($cookies[0]->name, 'foo', 'right name');
is($cookies[0]->value, 'bar', 'right value');
is($cookies[1], undef, 'no second cookie');
# Expired cookie
my $expired = Mojo::Cookie::Response->new(
domain => 'labs.kraih.com',
path => '/',
name => 'baz',
value => '23'
);
$expired->expires(time - 1);
$jar->add($expired);
@cookies = $jar->find(Mojo::URL->new('http://labs.kraih.com/foo'));
is($cookies[0]->name, 'foo', 'right name');
is($cookies[0]->value, 'bar', 'right value');
is($cookies[1], undef, 'no second cookie');
# Multiple cookies
$jar->add(
Mojo::Cookie::Response->new(
domain => 'labs.kraih.com',
path => '/',
name => 'baz',
value => '23',
max_age => 60
)
);
@cookies = $jar->find(Mojo::URL->new('http://labs.kraih.com/foo'));
is($cookies[0]->name, 'baz', 'right name');
is($cookies[0]->value, '23', 'right value');
is($cookies[1]->name, 'foo', 'right name');
is($cookies[1]->value, 'bar', 'right value');
is($cookies[2], undef, 'no third cookie');
# Multiple cookies with leading dot
$jar->add(
Mojo::Cookie::Response->new(
domain => '.kraih.com',
path => '/',
name => 'this',
value => 'that'
)
);
@cookies = $jar->find(Mojo::URL->new('http://labs.kraih.com/fo'));
is($cookies[0]->name, 'baz', 'right name');
is($cookies[0]->value, '23', 'right value');
is($cookies[1]->name, 'this', 'right name');
is($cookies[1]->value, 'that', 'right value');
is($cookies[2], undef, 'no third cookie');
# Replace cookie
$jar = Mojo::CookieJar->new;
$jar->add(
Mojo::Cookie::Response->new(
domain => 'kraih.com',
path => '/foo',
name => 'foo',
value => 'bar1'
)
);
$jar->add(
Mojo::Cookie::Response->new(
domain => 'kraih.com',
path => '/foo',
name => 'foo',
value => 'bar2'
)
);
@cookies = $jar->find(Mojo::URL->new('http://kraih.com/foo'));
is($cookies[0]->value, 'bar2', 'right value');
is($cookies[1], undef, 'no second cookie');
|
