CPAN::Groonga

ponse = $agent->follow_link( n => 1 );
isa_ok( $response, 'HTTP::Response', 'Gives a response' );
isnt( $agent->uri, $server->url, 'Need to be on a separate page' );

ok( $agent->back(), 'Can go back'

k"
);

ok(
    $agent->follow_link( text => 'Link /foo' ),
    'Can follow obvious named link'
);
isnt( $agent->uri, $server->url, 'Need to be on a separate page' );

ok( $agent->back(), 'Can still go

    $agent->follow_link( text_regex => qr/L\x{f6}schen/ ),
    'Can follow link with o-umlaut'
);
isnt( $agent->uri, $server->url, 'Need to be on a separate page' );

ok( $agent->back(), 'Can still go

Mechanize test page' );
}

INVALIDATE: {
    undef $agent->{content};
    undef $agent->{ct};
    isnt( $agent->title, 'WWW::Mechanize test page' );
    ok( !$agent->is_html, 'Not HTML' );
}

RELOAD: