Lines Matching refs:cookie

63         my ($self, $cookie) = @_;
64         push(@jar, $cookie);
98 my $cookie = Cookie->new($C1);
99 ok($cookie->{'type'} eq $C1, 'Have cookie');
102 $jar->store($cookie);
104 ok($cookie->{'type'}      eq $C1, 'Still have cookie');
105 ok($jar->peek()->{'type'} eq $C1, 'Still have cookie');
106 ok($cookie->{'type'}      eq $C1, 'Still have cookie');
109     ok($cookie->{'type'}      eq $C1, 'Have cookie in thread');
110     ok($jar->peek()->{'type'} eq $C1, 'Still have cookie in thread');
111     ok($cookie->{'type'}      eq $C1, 'Still have cookie in thread');
114     ok($jar->peek()->{'type'} eq $C2, 'Added cookie in thread');
117 ok($cookie->{'type'}      eq $C1, 'Still have original cookie after thread');
118 ok($jar->peek()->{'type'} eq $C2, 'Still have added cookie after thread');
120 $cookie = $jar->fetch();
121 ok($cookie->{'type'}      eq $C2, 'Fetched cookie from jar');
124 $cookie = $jar->fetch();
125 ok($cookie->{'type'}      eq $C1, 'Fetched cookie from jar');
126 undef($cookie);
128 share($cookie);
129 $cookie = $jar->store(Cookie->new($C3));
130 ok($jar->peek()->{'type'} eq $C3, 'New cookie in jar');
131 ok($cookie->{'type'}      eq $C3, 'Have cookie');
134     ok($cookie->{'type'}      eq $C3, 'Have cookie in thread');
135     $cookie = Cookie->new($C1);
136     ok($cookie->{'type'}      eq $C1, 'Change cookie in thread');
137     ok($jar->peek()->{'type'} eq $C3, 'Still have cookie in jar');
140 ok($cookie->{'type'}      eq $C1, 'Have changed cookie after thread');
141 ok($jar->peek()->{'type'} eq $C3, 'Still have cookie in jar');
142 undef($cookie);
143 ok($jar->peek()->{'type'} eq $C3, 'Still have cookie in jar');
144 $cookie = $jar->fetch();
145 ok($cookie->{'type'}      eq $C3, 'Fetched cookie from jar');