dougm 02/05/12 17:49:18
Modified: t/response/TestAPR netlib.pm
Log:
checking reverse of remote_ip is as expected
Revision Changes Path
1.4 +6 -2 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.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- netlib.pm 13 May 2002 00:35:10 -0000 1.3
+++ netlib.pm 13 May 2002 00:49:18 -0000 1.4
@@ -19,7 +19,7 @@
my $c = $r->connection;
my $p = $r->pool;
- plan $r, tests => 4;
+ plan $r, tests => 5;
my $ip = $c->remote_ip;
@@ -32,7 +32,11 @@
ok $ipsub->test($c->remote_addr);
- $ipsub = APR::IpSubnet->new($p, scalar reverse $ip);
+ my $reverse_remote_ip = scalar reverse $ip;
+ $ipsub = APR::IpSubnet->new($p, $reverse_remote_ip);
+
+ ok t_cmp($reverse_remote_ip, scalar reverse($c->remote_addr->ip_get),
+ "reversed remote_ip eq reversed remote_addr->ip_get");
ok ! $ipsub->test($c->remote_addr);
