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