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

[dougm]

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