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;
}
