Lines Matching refs:expires
155 -expires => '+3M',
164 like($c->expires, '/^[a-z]{3},\s*\d{2}-[a-z]{3}-\d{4}/i', 'expires in correct format');
177 ok(!defined $c->expires, 'expires is not set');
195 # ok(!defined $c->expires, 'expires is not set');
209 -expires => '+3M',
222 my $expires = $c->expires;
223 like($c->as_string, "/$expires/", "Stringified cookie contains expires");
246 ok($c->as_string !~ /expires/, "Stringified cookie has no expires field");
266 -expires => '+3M',
272 # have to use $c1->expires because the time will occasionally be
276 -expires => $c1->expires,
292 # have to use $c1->expires because the time will occasionally be
308 # Test name, value, domain, secure, expires and path
314 -expires => '+3M',
331 my $exp = $c->expires;
332 like($c->expires, '/^[a-z]{3},\s*\d{2}-[a-z]{3}-\d{4}/i', 'expires is correct');
333 like($c->expires('+12h'), '/^[a-z]{3},\s*\d{2}-[a-z]{3}-\d{4}/i', 'expires is set correctly');
334 like($c->expires, '/^[a-z]{3},\s*\d{2}-[a-z]{3}-\d{4}/i', 'expires now returns updated value');
335 isnt($c->expires, $exp, "Expiry time has changed");
355 my $cookie = CGI::Cookie->new( -name=>'a', value=>'b', '-expires' => 'now',);
356 is $cookie->expires, 'Thu, 01-Jan-1970 00:01:40 GMT';
357 is $cookie->max_age => undef, 'max-age is undefined when setting expires';
362 is $cookie->expires, undef, 'expires is undef when setting max_age';
375 my $cookie = CGI::Cookie->new( -name=>'a', value=>'b', '-expires' => 'now',);