cvs commit: modperl-2.0/t/response/TestAPI access.pm

[stas]

stas        2004/08/09 12:47:22

  Modified:    t/response/TestAPI access.pm
  Log:
  just test that we can call get_remote_logname
  
  Revision  Changes    Path
  1.7       +8 -2      modperl-2.0/t/response/TestAPI/access.pm
  
  Index: access.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/access.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -u -r1.6 -r1.7
  --- access.pm 8 Aug 2004 21:32:28 -0000       1.6
  +++ access.pm 9 Aug 2004 19:47:22 -0000       1.7
  @@ -4,6 +4,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   
   use Apache::Access ();
   
  @@ -12,7 +13,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 10;
  +    plan $r, tests => 11;
   
       $r->allow_methods(1, qw(GET POST));
   
  @@ -40,7 +41,12 @@
   
       ok !$r->some_auth_required;
   
  -    # XXX: $r->get_remote_logname();
  +    # XXX: this test requires a running identd, which we have no way
  +    # to figure out whether it's running, or how to start one. so for
  +    # now just check that the method is call-able.
  +    my $remote_logname = $r->get_remote_logname() || '';
  +    t_debug "get_remote_logname: $remote_logname";
  +    ok 1;
   
       Apache::OK;
   }