"Fossies" - the Fresh Open Source Software Archive

Member "mod_perl-2.0.11/t/filter/in_bbs_underrun.t" (5 Oct 2019, 701 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. See also the last Fossies "Diffs" side-by-side code changes report for "in_bbs_underrun.t": 2.0.8_vs_2.0.9.

    1 # please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
    2 use strict;
    3 use warnings FATAL => 'all';
    4 
    5 use Apache::Test;
    6 use Apache::TestUtil;
    7 use Apache::TestRequest;
    8 
    9 plan tests => 1;
   10 
   11 my $location = '/TestFilter__in_bbs_underrun';
   12 
   13 # send a message of about 40k, so to make sure that the input filter
   14 # will get several bucket brigades with data (about 8k/brigade)
   15 my $length = 40 * 1024 + 7; # ~40k+ (~6 incoming bucket brigades)
   16 my $data = "x" x $length;
   17 my $received = POST_BODY $location, content => $data;
   18 my $expected = "read $length chars";
   19 
   20 ok t_cmp($received, $expected, "input bbs filter underrun test")