1..350
#
#  * * *
# Testuser: user2: dpruser1:e6zwd7CP
#  * * *
# User is NOT an administrative user.
# dpruser1 logging in at https://192.168.0.101/auth-test/dprnew2.cgi.
# Status: 200   Success: 1
# URL: https://192.168.0.101/auth-test/dprnew2.cgi?rm=admin_AccessAdmin
ok 1 - DENIED:
https://192.168.0.101/auth-test/dprnew2.cgi?rm=admin_AccessAdmin
ok 2 - DENIED:
https://192.168.0.101/auth-test/dprnew2.cgi?rm=admin_AccessAdmin
There is no form named "loginform" at t/access_control.t
line 53 No such field 'authen_username'
at /usr/local/share/perl/5.8.7/WWW/Mechanize.pm line1052
# Looks like you planned 350 tests but only ran 2.
# Looks like your test died just after 2.

##</code><code>##

sub rm_adm_tests{
  my($u,$pw,$real,$baseurl) = @_;
  my($rm,$rmurl,$string);

  my @runmodes_adm = (
    'admin_AccessAdmin', 'admin_CreateNewUser',
    'admin_EditUser', 'admin_DeleteUser',
    'admin_CreateNewGroup', 'admin_DeleteGroup', );

  if($u =~ /adm/){
    diag("User is an administrative user.");
  } else {
    diag("User is NOT an administrative user.");
  }
  diag("$u logging in at $baseurl.");

  RM: foreach $rm (@runmodes_adm){
    $test = login_mech($baseurl,$u,$pw);
    $rmurl = $baseurl."?rm=".$rm;
    if($real){
      next RM unless $test eq $u;
      $agent->follow_link (text_regex => qr/Administer User
Access/i); 
      if($u =~ /adm/){
        $test = stringify_test($agent->content,"User
Administration Menu"); 
        if ($test = qr/User Administration Menu/){
          $agent->get($rmurl);
          $test = stringify_test($agent->content,"$rm");
          is($test, "$rm", "ACCESS: ".$agent->uri());
        }
        $agent->back;
        $agent->submit_form(form_name => 'logout', button
=> '.submit'); $agent->reload();
      } else {
        diag("Status: ".$agent->status()."\tSuccess: ".
$agent->success()."\nURL: ".$agent->uri());
        $string = stringify_test($agent->content,"User
Administration Menu"); 
        unlike ($string, qr/User Administration Menu/,
"DENIED: ".$agent->uri); 
        $agent->get ($rmurl); 
        $string = stringify_test($agent->content,$rm);
        unlike($string, qr/$rm/, "DENIED: ".$agent->uri());
        $agent->back;
      }
    } else {
      isnt ($test, $u, "$u denied access at Login.");
    }
  }
}