1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
plan tests => 1, need qw[BSD::Resource],
{ "CGI.pm (2.93 or higher) or Apache2::Request is needed" =>
!!(eval { require CGI && $CGI::VERSION >= 2.93 } ||
eval { require Apache2::Request })};
{
# Apache2::Status menu inserted by Apache::Resource
my $url = '/status/perl?rlimit';
my $body = GET_BODY_ASSERT $url;
ok $body =~ /RLIMIT_CPU/;
}
# more tests would be nice, but I'm not sure how to write those w/o
# causing problems to the rest of the test suite.
# we could enable $ENV{PERL_RLIMIT_DEFAULTS} = 1; before loading
# Apache2::Resource, which sets certain default values (works for me)
# but it's not guaranteed that it'll work for others (since it's very
# OS specific)
|
