On Thu, 25 Sep 2003, Stas Bekman wrote:
> Randy Kobes wrote:
> >
> > That worked - thanks! And a quick run through has all the
> > filter tests passing (using a sequence that failed before).
> > However, some of the apr/pool tests fail for me:
>
> So it doesn't prove anything yet, as it's not clear
> whether sub-pools were destroyed. Since the cleanup
> callbacks didn't run. Can you please try with this handler
> and post the debug prints from the error log as well.
> Thanks.
>
> sub handler {
> my $r = shift;
>
> plan $r, tests => 7;
> # test: destroying a sub-pool before the parent pool
> {
> my $pp = APR::Pool->new;
>
> ok t_cmp(1, $pp->isa('APR::Pool'), "isa('APR::Pool')");
>
> ok t_cmp(1, ancestry_count($pp),
> "a new pool has one ancestor: the global pool");
>
> my $sp = $pp->new;
>
> ok t_cmp(1, $sp->isa('APR::Pool'), "isa('APR::Pool')");
>
> ok t_cmp(2, ancestry_count($sp),
> "a subpool has 2 ancestors: the parent and global pools");
>
> $pp->cleanup_register(\&add_cleanup, [$r, 'parent']);
> $sp->cleanup_register(\&set_cleanup, [$r, 'child']);
>
> $sp->DESTROY;
> $pp->DESTROY;
>
> my @notes = $r->notes->get('cleanup');
>
> ok t_cmp(2, scalar(@notes), "should be 2 notes");
> ok t_cmp('child', $notes[0]);
> ok t_cmp('parent', $notes[1]);
>
> $r->notes->clear;
> }
>
> return Apache::OK;
> }
OK - here's the result of running this:
\Apache2/bin/Apache.exe -d C:/MyFiles/MODPER~1.0/t -f
C:/MyFiles/MODPER~1.0/t/conf/httpd.conf -DAPACHE2 -DPERL_USEITHREADS
using Apache/2.0.47 (winnt MPM)
waiting for server to start: .
waiting for server to start: ok (waited 0 secs)
server localhost:8529 started
server localhost:8530 listening (TestProtocol::echo)
server localhost:8531 listening (TestProtocol::echo_filter)
server localhost:8532 listening (TestProtocol::eliza)
server localhost:8533 listening (TestPreConnection::note)
server localhost:8534 listening (TestHooks::stacked_handlers2)
server localhost:8535 listening (TestFilter::in_str_msg)
server localhost:8536 listening (TestFilter::both_str_con_add)
server localhost:8537 listening (TestFilter::in_bbs_msg)
server localhost:8538 listening (TestDirective::perlmodule)
server localhost:8539 listening (TestDirective::perlrequire)
server localhost:8540 listening (TestPerl::ithreads)
server localhost:8541 listening (TestDirective::perlloadmodule3)
server localhost:8542 listening (TestDirective::perlloadmodule4)
server localhost:8543 listening (TestDirective::perlloadmodule5)
server localhost:8544 listening (TestDirective::perlloadmodule6)
apr/pool....1..7
# Running under perl version 5.008001 for MSWin32
# Current time local: Thu Sep 25 22:19:28 2003
# Current time GMT: Fri Sep 26 03:19:28 2003
# Using Test.pm version 1.24
# testing : isa('APR::Pool')
# expected: 1
# received: 1
ok 1
# testing : a new pool has one ancestor: the global pool
# expected: 1
# received: 1
ok 2
# testing : isa('APR::Pool')
# expected: 1
# received: 1
ok 3
# testing : a subpool has 2 ancestors: the parent and global pools
# expected: 2
# received: 2
ok 4
# testing : should be 2 notes
# expected: 2
# received: 0
not ok 5
# expected: child
# received: undef
not ok 6
# expected: parent
# received: undef
not ok 7
FAILED tests 5-7
Failed 3/7 tests, 57.14% okay
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
apr/pool.t 7 3 42.86% 5-7
The error log is attached.
--
best regards,
randy
error_log.gz
Description: GNU Zip compressed data
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
