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
|
#!perl
use strict;
use warnings;
use lib 't/lib', 'lib';
use myconfig;
use Test::More tests => 29;
use Test::Exception;
BEGIN {
use_ok('Net::FastCGI::Constant', qw[ :type :role :protocol_status ] );
use_ok('Net::FastCGI::Protocol', qw[ get_type_name
get_role_name
get_protocol_status_name ] );
}
{
my @tests = (
[ FCGI_BEGIN_REQUEST, 'FCGI_BEGIN_REQUEST' ],
[ FCGI_ABORT_REQUEST, 'FCGI_ABORT_REQUEST' ],
[ FCGI_END_REQUEST, 'FCGI_END_REQUEST' ],
[ FCGI_PARAMS, 'FCGI_PARAMS' ],
[ FCGI_STDIN, 'FCGI_STDIN' ],
[ FCGI_STDOUT, 'FCGI_STDOUT' ],
[ FCGI_STDERR, 'FCGI_STDERR' ],
[ FCGI_DATA, 'FCGI_DATA' ],
[ FCGI_GET_VALUES, 'FCGI_GET_VALUES' ],
[ FCGI_GET_VALUES_RESULT, 'FCGI_GET_VALUES_RESULT' ],
[ FCGI_UNKNOWN_TYPE, 'FCGI_UNKNOWN_TYPE' ],
);
foreach my $test ( @tests ) {
my ( $type, $name ) = @$test;
is( get_type_name($type), $name, qq/get_type_name($type) = $name/ );
}
foreach my $type ( 0, 0xFF ) {
is(get_type_name($type), sprintf('0x%.2X', $type));
}
}
{
my @tests = (
[ FCGI_RESPONDER, 'FCGI_RESPONDER' ],
[ FCGI_AUTHORIZER, 'FCGI_AUTHORIZER' ],
[ FCGI_FILTER, 'FCGI_FILTER' ],
);
foreach my $test ( @tests ) {
my ( $role, $name ) = @$test;
is( get_role_name($role), $name, qq/get_role_name($role) = $name/ );
}
foreach my $role ( 0, 0xFF, 0xFFFF ) {
is(get_role_name($role), sprintf('0x%.4X', $role));
}
}
{
my @tests = (
[ FCGI_REQUEST_COMPLETE, 'FCGI_REQUEST_COMPLETE' ],
[ FCGI_CANT_MPX_CONN, 'FCGI_CANT_MPX_CONN' ],
[ FCGI_OVERLOADED, 'FCGI_OVERLOADED' ],
[ FCGI_UNKNOWN_ROLE, 'FCGI_UNKNOWN_ROLE' ],
);
foreach my $test ( @tests ) {
my ( $status, $name ) = @$test;
is( get_protocol_status_name($status), $name, qq/get_protocol_status_name($status) = $name/ );
}
is(get_protocol_status_name(0xFF), '0xFF');
}
throws_ok { get_type_name() } qr/^Usage: /;
throws_ok { get_role_name() } qr/^Usage: /;
throws_ok { get_protocol_status_name() } qr/^Usage: /;
|