Author: stas Date: Sun Dec 5 11:09:51 2004 New Revision: 109902 URL: http://svn.apache.org/viewcvs?view=rev&rev=109902 Log: add some visual feedback on the process that gets shutdown
Modified: perl/modperl/trunk/t/response/TestAPI/request_util.pm Modified: perl/modperl/trunk/t/response/TestAPI/request_util.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestAPI/request_util.pm?view=diff&rev=109902&p1=perl/modperl/trunk/t/response/TestAPI/request_util.pm&r1=109901&p2=perl/modperl/trunk/t/response/TestAPI/request_util.pm&r2=109902 ============================================================================== --- perl/modperl/trunk/t/response/TestAPI/request_util.pm (original) +++ perl/modperl/trunk/t/response/TestAPI/request_util.pm Sun Dec 5 11:09:51 2004 @@ -8,6 +8,8 @@ use Apache::RequestUtil (); use Apache::MPM (); +use Apache::Log (); +use APR::Pool (); use Apache::Const -compile => 'OK'; @@ -27,7 +29,7 @@ my $document_root = $r->document_root; ok $document_root; - + if (!Apache::MPM->is_threaded) { ok t_cmp($document_root, $r->document_root('/tmp/foo')); ok t_cmp('/tmp/foo', $r->document_root($document_root)); @@ -38,7 +40,7 @@ "document_root is read-only under threads"); ok 1; } - + ok $r->get_server_name; ok $r->get_server_port; @@ -51,7 +53,7 @@ t_debug $sig; ok $sig; - my $pattern = + my $pattern = qr!(?s)GET /TestAPI__request_util.*Host:.*200 OK.*Content-Type:!; ok t_cmp($r->as_string, @@ -70,7 +72,13 @@ ok t_cmp($@, qr/Can't run.*in a threaded mpm/, "child_terminate"); } else { + t_server_log_error_is_expected(); ok $r->child_terminate() || 1; + $r->pool->cleanup_register( + sub { + my $r = shift; + $r->log_error("Process $$ terminates itself\n"); + }, $r); } Apache::OK;
