~ubuntu-branches/ubuntu/warty/libapache2-mod-perl2/warty

« back to all changes in this revision

Viewing changes to t/filter/out_bbs_ctx.t

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

t/filter/out_bbs_ctx.t

 

1

use strict;

 

2

use warnings FATAL => 'all';

 

3

 

 

4

use Apache::Test;

 

5

use Apache::TestRequest;

 

6

use Apache::TestUtil;

 

7

 

 

8

plan tests => 1;

 

9

 

 

10

my $blocks  = 33;

 

11

my $invoked = 34; # 33 bb made of data and 1 flush bucket (unbuffered print)

 

12

                  #  1 bb with EOS bucket

 

13

my $sig = join "\n", "received $blocks complete blocks",

 

14

    "filter invoked $invoked times\n";

 

15

my $data = "#" x $blocks . "x" x $blocks;

 

16

my $expected = join "\n", $data, $sig;

 

17

 

 

18

{

 

19

    # test the filtering of the mod_perl response handler

 

20

    my $location = '/TestFilter__out_bbs_ctx';

 

21

    my $response = GET_BODY $location;

 

22

    ok t_cmp($expected, $response, "context filter");

 

23

}

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1