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

[geoff]

geoff       2003/09/05 09:30:45

  Modified:    t/response/TestAPR pool.pm
  Log:
  add subpool tests
  
  Revision  Changes    Path
  1.4       +8 -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.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- pool.pm   11 Apr 2002 11:08:44 -0000      1.3
  +++ pool.pm   5 Sep 2003 16:30:45 -0000       1.4
  @@ -17,18 +17,25 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 2;
  +    plan $r, tests => 4;
   
       my $p = APR::Pool->new;
   
       ok $p->isa('APR::Pool');
   
  +    my $subp = $p->new;
  +
  +    ok $subp->isa('APR::Pool');
  +
   #only available with -DAPR_POOL_DEBUG
   #    my $num_bytes = $p->num_bytes;
   #    ok $num_bytes;
   
       $p->cleanup_register(\&cleanup, 33);
  +    $subp->cleanup_register(\&cleanup, 33);
   
  +    # should destroy the subpool too, so
  +    # cleanup is called twice
       $p->destroy;
   
       Apache::OK;