"Fossies" - the Fresh Open Source Software Archive

Member "mod_perl-2.0.11/Apache-SizeLimit/t/apache2/zzz_check_n_requests.t" (5 Oct 2019, 478 Bytes) of package /linux/www/apache_httpd_modules/mod_perl-2.0.11.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 use strict;
    2 use warnings FATAL => 'all';
    3 
    4 use Apache::Test;
    5 use Apache::TestRequest;
    6 
    7 my $module = 'TestApache2::zzz_check_n_requests';
    8 my $url    = Apache::TestRequest::module2url($module);
    9 
   10 plan tests => 1, need_min_module_version('Apache::Test' => 1.29);
   11 require Apache::TestUtil;
   12 
   13 Apache::TestUtil::t_start_error_log_watch();
   14 my $res = GET $url;
   15 sleep(5);
   16 my $c = grep { /Apache2::SizeLimit httpd process too big/ } Apache::TestUtil::t_finish_error_log_watch();
   17 ok $c == 1;