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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#!perl
use strict;
use warnings;
use lib 't/lib', 'lib';
use myconfig;
use Test::More tests => 15;
use Test::HexString;
use Test::Exception;
BEGIN {
use_ok('Net::FastCGI::Protocol', qw[ build_begin_request ]);
use_ok('Net::FastCGI::Constant', qw[ :type :role ]);
}
{
my $begin = "\x01\x01\x00\x01\x00\x08\x00\x00" # FCGI_Header id=1
. "\x00\x01\x00\x00\x00\x00\x00\x00"; # FCGI_BeginRequestBody role=FCGI_RESPONDER
my $params = "\x01\x04\x00\x01\x00\x00\x00\x00"; # FCGI_Header type=FCGI_PARAMS
{
my $exp = $begin . $params;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, {});
is_hexstr($got, $exp, q<build_begin_request(1, FCGI_RESPONDER, 0, {})>);
}
my $stdin = "\x01\x05\x00\x01\x00\x00\x00\x00"; # FCGI_Header type=FCGI_STDIN
{
my $exp = $begin . $params . $stdin;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, {}, '');
is_hexstr($got, $exp, q<build_begin_request(1, FCGI_RESPONDER, 0, {}, '')>);
}
{
my $exp = $begin . $params . $stdin;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, {}, undef);
is_hexstr($got, $exp, q<build_begin_request(1, FCGI_RESPONDER, 0, {}, undef)>);
}
my $data = "\x01\x08\x00\x01\x00\x00\x00\x00"; # FCGI_Header type=FCGI_DATA
{
my $exp = $begin . $params . $stdin . $data;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, {}, '', undef);
is_hexstr($got, $exp, q<build_begin_request(1, FCGI_RESPONDER, 0, {}, '', undef)>);
}
{
my $exp = $begin . $params . $stdin . $data;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, {}, undef, '');
is_hexstr($got, $exp, q<build_begin_request(1, FCGI_RESPONDER, 0, {}, undef, '')>);
}
}
{
my $begin = "\x01\x01\x00\x01\x00\x08\x00\x00" # FCGI_Header id=1
. "\x00\x01\x00\x00\x00\x00\x00\x00"; # FCGI_BeginRequestBody role=FCGI_RESPONDER
my $params = "\x01\x04\x00\x01\x00\x08\x00\x00" # FCGI_Header type=FCGI_PARAMS
. "\x03\x03FooBar"
. "\x01\x04\x00\x01\x00\x00\x00\x00";
{
my $exp = $begin . $params;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, { Foo => 'Bar' });
is_hexstr($got, $exp, q!build_begin_request(1, FCGI_RESPONDER, 0, { Foo => 'Bar' })!);
}
my $stdin = "\x01\x05\x00\x01\x03\xFC\x04\x00" # FCGI_Header type=FCGI_STDIN
. "x" x 1020 . "\0" x 4
. "\x01\x05\x00\x01\x00\x00\x00\x00";
{
my $exp = $begin . $params . $stdin;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, { Foo => 'Bar' }, 'x' x 1020);
is_hexstr($got, $exp, q!build_begin_request(1, FCGI_RESPONDER, 0, { Foo => 'Bar' }, 'x' x 1020)!);
}
my $data = "\x01\x08\x00\x01\x04\x00\x00\x00" # FCGI_Header type=FCGI_DATA
. "y" x 1024
. "\x01\x08\x00\x01\x00\x00\x00\x00";
{
my $exp = $begin . $params . $stdin . $data;
my $got = build_begin_request(1, FCGI_RESPONDER, 0, { Foo => 'Bar' }, 'x' x 1020, 'y' x 1024);
is_hexstr($got, $exp, q!build_begin_request(1, FCGI_RESPONDER, 0, { Foo => 'Bar' }, 'x' x 1020, 'y' x 1024)!);
}
}
# build_begin_request(request_id, role, flags, params [, stdin [, data]])
for (0..3, 7) {
throws_ok { build_begin_request((1) x $_) } qr/^Usage: /;
}
|