This is how I figured out how to test a cookie with WWW::Mechanize:
my $ses_id_from_cookie =
$a->cookie_jar->{COOKIES}->{".$CFG{SITE_DOMAIN}"}->{'/'}->{CGISESSID}->[1];
ok($ses_id_from_cookie, "admin - Login screen sets cookie
($ses_id_from_cookie)");
Surely there is an easier/better way than digging my hand so rudely into the
cookie jar like that.
Mark
