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

[stas]

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;
  +    }