stas 2003/09/26 01:56:11
Modified: t/response/TestAPR pool.pm
Log:
apparently under worker mpm r->pool has only two ancestors, where on winnt
and prefork it has 5.
Revision Changes Path
1.7 +6 -2 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.6
retrieving revision 1.7
diff -u -u -r1.6 -r1.7
--- pool.pm 26 Sep 2003 08:29:26 -0000 1.6
+++ pool.pm 26 Sep 2003 08:56:11 -0000 1.7
@@ -24,7 +24,9 @@
{
my $p = $r->pool;
- ok t_cmp(5, ancestry_count($p), "\$r->pool has 5 ancestors");
+ my $count = ancestry_count($p);
+ t_debug "\$r->pool has 2 or more ancestors (found $count)";
+ ok $count >= 2;
$p->cleanup_register(\&set_cleanup, [$r, 'native DESTROY']);
@@ -42,7 +44,9 @@
{
my $p = $r->pool;
- ok t_cmp(5, ancestry_count($p), "\$r->pool has 5 ancestors");
+ my $count = ancestry_count($p);
+ t_debug "\$r->pool has 2 or more ancestors (found $count)";
+ ok $count >= 2;
$p->cleanup_register(\&set_cleanup, [$r, 'native scoped']);
}
