perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/apr .cvsignore
Date Mon, 17 May 2004 07:44:03 GMT
stas        2004/05/17 00:44:03

  Modified:    t/apr    .cvsignore
  Added:       t/response/TestAPR sockaddr.pm
  Log:
  APR::SockAddr test
  
  Revision  Changes    Path
  1.1                  modperl-2.0/t/response/TestAPR/sockaddr.pm
  
  Index: sockaddr.pm
  ===================================================================
  package TestAPR::sockaddr;
  
  # testing APR::SockAddr API
  
  use strict;
  use warnings  FATAL => 'all';
  
  use Apache::Test;
  use Apache::TestUtil;
  
  use Apache::Connection ();
  use Apache::RequestRec ();
  use APR::SockAddr ();
  
  use Apache::Const -compile => 'OK';
  
  sub handler {
      my $r = shift;
      my $c = $r->connection;
  
      plan $r, tests => 4;
  
      my $local  = $c->local_addr;
      my $remote = $c->remote_addr;
  
      ok t_cmp($c->local_ip,  $local->ip_get,  "local ip");
      ok t_cmp($c->remote_ip, $remote->ip_get, "remote ip");
  
      $r->subprocess_env;
      ok t_cmp($ENV{SERVER_PORT}, $local->port,  "local port");
      ok t_cmp($ENV{REMOTE_PORT}, $remote->port, "remote port");
  
      Apache::OK;
  }
  
  1;
  
  
  
  1.11      +8 -7      modperl-2.0/t/apr/.cvsignore
  
  Index: .cvsignore
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apr/.cvsignore,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -u -r1.10 -r1.11
  --- .cvsignore	28 Jan 2004 13:54:20 -0000	1.10
  +++ .cvsignore	17 May 2004 07:44:03 -0000	1.11
  @@ -1,17 +1,18 @@
   base64.t
  +brigade.t
   constants.t
   date.t
  +finfo.t
  +flatten.t
   lib.t
   netlib.t
  +os.t
   perlio.t
   pool.t
  +sockaddr.t
  +socket.t
   string.t
   table.t
  -util.t
  -uuid.t
  -os.t
  -socket.t
   threadmutex.t
  -finfo.t
  -flatten.t
  -brigade.t
  +util.t
  +uuid.t
  \ No newline at end of file
  
  
  

Mime
View raw message