You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/05/13 02:35:10 UTC
cvs commit: modperl-2.0/t/response/TestAPR netlib.pm
dougm 02/05/12 17:35:10
Modified: t/response/TestAPR netlib.pm
Log:
test APR::SockAddr->ip_get
Revision Changes Path
1.3 +6 -1 modperl-2.0/t/response/TestAPR/netlib.pm
Index: netlib.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/netlib.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- netlib.pm 11 Apr 2002 11:08:44 -0000 1.2
+++ netlib.pm 13 May 2002 00:35:10 -0000 1.3
@@ -4,11 +4,13 @@
use warnings FATAL => 'all';
use Apache::Test;
+use Apache::TestUtil;
use Apache::Connection ();
use Apache::RequestRec ();
use APR::NetLib ();
+use APR::SockAddr ();
use Apache::Const -compile => 'OK';
@@ -17,11 +19,14 @@
my $c = $r->connection;
my $p = $r->pool;
- plan $r, tests => 3;
+ plan $r, tests => 4;
my $ip = $c->remote_ip;
ok $ip;
+
+ ok t_cmp($ip, $c->remote_addr->ip_get,
+ "remote_ip eq remote_addr->ip_get");
my $ipsub = APR::IpSubnet->new($p, $ip);