cvs commit: modperl-2.0/t/response/TestAPR netlib.pm

2002-05-12 Thread dougm 

dougm   02/05/12 19:49:05

  Modified:t/response/TestAPR netlib.pm
  Log:
  fix for win32
  
  Revision  ChangesPath
  1.5   +8 -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.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- netlib.pm 13 May 2002 00:49:18 -  1.4
  +++ netlib.pm 13 May 2002 02:49:05 -  1.5
  @@ -33,12 +33,18 @@
   ok $ipsub->test($c->remote_addr);
   
   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);
  +$ipsub = APR::IpSubnet->new($p, $reverse_remote_ip);
  +
  +if (!$ipsub) {
  +ok 1; #this happens on win32
  +}
  +else {
  +ok ! $ipsub->test($c->remote_addr);
  +}
   
   Apache::OK;
   }

cvs commit: modperl-2.0/t/response/TestAPR netlib.pm

2002-05-12 Thread dougm 

dougm   02/05/12 17:49:18

  Modified:t/response/TestAPR netlib.pm
  Log:
  checking reverse of remote_ip is as expected
  
  Revision  ChangesPath
  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 -  1.3
  +++ netlib.pm 13 May 2002 00:49:18 -  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);

cvs commit: modperl-2.0/t/response/TestAPR netlib.pm

2002-05-12 Thread dougm 

dougm   02/05/12 17:35:10

  Modified:t/response/TestAPR netlib.pm
  Log:
  test APR::SockAddr->ip_get
  
  Revision  ChangesPath
  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 -  1.2
  +++ netlib.pm 13 May 2002 00:35:10 -  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);