SKIP: {
    ok( $mech->response->is_success, "Request is successful" )
        or skip "Unsuccessful request", 4;
    
    ok( $mech->is_html, "Returns HTML" )
        or skip "Didn't return HTML", 3;

    ok( $mech->title eq 'some title', "Returns expected title" );
    
    my @forms = $mech->forms;
    ok( @forms >= 1, "Has at least one form" )
        or skip "Need at least one form to work on", 1;

    my ($passwd_form) = @forms;

    ok( $passwd_form->action eq 'example.cgi', 
        "action goes to correct CGI" );
}