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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!perl
use strict;
use warnings;
use lib 't/lib', 'lib';
use myconfig;
use Test::More tests => 18;
use Test::Exception;
BEGIN {
use_ok('Net::FastCGI::Constant', qw[:all]);
use_ok('Net::FastCGI::Protocol', qw[ build_header
build_record
get_record_length ]);
}
is get_record_length(undef), 0, 'get_record_length(undef)';
{
for my $len (0..7) {
is get_record_length("\x00" x $len), 0, qq<get_record_length("\\x00" x $len)>;
}
}
{
for my $len (8, 16, 32, 64) {
my $record = build_record(0, 0, "\x00" x $len);
is get_record_length($record), FCGI_HEADER_LEN + $len;
}
}
{
my $header = build_header(0, 0, 8192, 250);
is get_record_length($header), FCGI_HEADER_LEN + 8192 + 250;
}
# get_record_length(octets)
for (0, 2) {
throws_ok { get_record_length((1) x $_) } qr/^Usage: /;
}
|
