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/response/TestAPR pool.pm
Date Fri, 14 May 2004 07:58:22 GMT
stas        2004/05/14 00:58:22

  Modified:    t/response/TestAPR pool.pm
  Log:
  exercise the tag() method
  
  Revision  Changes    Path
  1.12      +11 -1     modperl-2.0/t/response/TestAPR/pool.pm
  
  Index: pool.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/pool.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -u -r1.11 -r1.12
  --- pool.pm	14 May 2004 07:40:31 -0000	1.11
  +++ pool.pm	14 May 2004 07:58:21 -0000	1.12
  @@ -16,7 +16,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 75;
  +    plan $r, tests => 76;
   
       ### native pools ###
   
  @@ -414,7 +414,17 @@
       }
   
   
  +    # a pool can be tagged, so when doing low level apr_pool tracing
  +    # (when apr is compiled with -DAPR_POOL_DEBUG) it's possible to
  +    # grep(1) for a certain tag, so it's a useful method
  +    {
  +        my $p = APR::Pool->new;
  +        $p->tag("my pool");
   
  +        # though there is no way we can get back the value to test,
  +        # since there is no apr_pool_tag read accessor
  +        ok 1;
  +    }
   
   
   
  
  
  

Mime
View raw message