ze::Shell test page" );
}
INVALIDATE: {
undef $agent->{content};
undef $agent->{ct};
isnt( $agent->title, "WWW::Mechanize::Shell test page" );
ok( !$agent->is_html );
}
RELOAD: {
nt->get( $url );
is($agent->status, 200, "Got second page") or diag $agent->res->message;
isnt($agent->content, "Referer: '$url'", "Referer not sent for cached url");
is($agent->content, "
st page" );
}
INVALIDATE: {
undef $agent->mech->{content};
undef $agent->mech->{ct};
isnt( $agent->title, "WWW::Mechanize::Shell test page" );
ok( !$agent->is_html );
}
RELOAD: {