You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2013/11/01 00:22:16 UTC
svn commit: r1537760 - in /perl/modperl/branches/httpd24threading: ./
t/response/TestModperl/interpreter.pm
Author: stevehay
Date: Thu Oct 31 23:22:15 2013
New Revision: 1537760
URL: http://svn.apache.org/r1537760
Log:
Merged revision(s) 671901 from perl/modperl/branches/threading:
expanding tabs in Perl files
........
Modified:
perl/modperl/branches/httpd24threading/ (props changed)
perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm
Propchange: perl/modperl/branches/httpd24threading/
------------------------------------------------------------------------------
Merged /perl/modperl/branches/threading:r671901
Modified: perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm?rev=1537760&r1=1537759&r2=1537760&view=diff
==============================================================================
--- perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm (original)
+++ perl/modperl/branches/httpd24threading/t/response/TestModperl/interpreter.pm Thu Oct 31 23:22:15 2013
@@ -24,50 +24,50 @@ sub handler {
my $interp = ModPerl::Interpreter->current;
ok t_cmp(ref($interp), 'ModPerl::Interpreter',
- 'interp is a ModPerl::Interpreter');
+ 'interp is a ModPerl::Interpreter');
ok t_cmp($$interp==${ModPerl::Interpreter::current()}, !!1,
- 'ModPerl::Interpreter->current == ModPerl::Interpreter::current');
+ 'ModPerl::Interpreter->current == ModPerl::Interpreter::current');
my $mip = $interp->mip;
ok t_cmp(ref($mip), 'ModPerl::InterpPool',
- 'interp->mip is a ModPerl::InterpPool');
+ 'interp->mip is a ModPerl::InterpPool');
ok t_cmp(${$mip->server}==${$r->server}, !!1,
- 'mip->server == r->server');
+ 'mip->server == r->server');
ok t_cmp(ref($mip->parent), 'ModPerl::Interpreter',
- 'mip->parent is a ModPerl::Interpreter');
+ 'mip->parent is a ModPerl::Interpreter');
if($is_threaded) {
- ok t_cmp($interp->perl!=0, !!1, 'interp->perl');
- ok t_cmp($interp->num_requests>0, !!1, 'interp->num_requests');
- ok t_cmp($interp->refcnt>0, !!1, 'interp->refcnt');
+ ok t_cmp($interp->perl!=0, !!1, 'interp->perl');
+ ok t_cmp($interp->num_requests>0, !!1, 'interp->num_requests');
+ ok t_cmp($interp->refcnt>0, !!1, 'interp->refcnt');
- my $tipool = $mip->tipool;
+ my $tipool = $mip->tipool;
- ok t_cmp(ref($tipool), 'ModPerl::TiPool',
- 'mip->tipool is a ModPerl::TiPool');
+ ok t_cmp(ref($tipool), 'ModPerl::TiPool',
+ 'mip->tipool is a ModPerl::TiPool');
- ok t_cmp($tipool->in_use!=0, !!1, 'tipool->in_use');
+ ok t_cmp($tipool->in_use!=0, !!1, 'tipool->in_use');
- ok t_cmp($tipool->size!=0, !!1, 'tipool->size');
+ ok t_cmp($tipool->size!=0, !!1, 'tipool->size');
- my $tipcfg = $tipool->cfg;
+ my $tipcfg = $tipool->cfg;
- ok t_cmp(ref($tipcfg), 'ModPerl::TiPoolConfig',
- 'tipool->cfg is a ModPerl::TiPoolConfig');
+ ok t_cmp(ref($tipcfg), 'ModPerl::TiPoolConfig',
+ 'tipool->cfg is a ModPerl::TiPoolConfig');
- ok t_cmp($tipcfg->start!=0, !!1, 'tipcfg->start');
+ ok t_cmp($tipcfg->start!=0, !!1, 'tipcfg->start');
- ok t_cmp($tipcfg->min_spare!=0, !!1, 'tipcfg->min_spare');
+ ok t_cmp($tipcfg->min_spare!=0, !!1, 'tipcfg->min_spare');
- ok t_cmp($tipcfg->max_spare!=0, !!1, 'tipcfg->max_spare');
+ ok t_cmp($tipcfg->max_spare!=0, !!1, 'tipcfg->max_spare');
- ok t_cmp($tipcfg->max!=0, !!1, 'tipcfg->max');
+ ok t_cmp($tipcfg->max!=0, !!1, 'tipcfg->max');
- ok t_cmp($tipcfg->max_requests!=0, !!1, 'tipcfg->max_requests');
+ ok t_cmp($tipcfg->max_requests!=0, !!1, 'tipcfg->max_requests');
}
Apache2::Const::OK;