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
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
use strict;
use Test::More;
use Plack::HTTPParser::PP;
*parse_http_request = \&Plack::HTTPParser::PP::parse_http_request;
my $req;
my %env;
$req = "GET /abc?x=y HTTP/1.0\r\n\r\n";
%env = ();
is(parse_http_request($req, \%env), length($req), 'simple get');
is_deeply(\%env, {
PATH_INFO => '/abc',
QUERY_STRING => 'x=y',
REQUEST_METHOD => "GET",
SCRIPT_NAME => '',
SERVER_PROTOCOL => 'HTTP/1.0',
REQUEST_URI => '/abc?x=y',
}, 'result of GET /');
$req = <<"EOT";
POST /hoge HTTP/1.1\r
Content-Type: text/plain\r
Content-Length: 15\r
Host: example.com\r
User-Agent: hoge\r
\r
EOT
%env = ();
is(parse_http_request($req, \%env), length($req), 'POST');
is_deeply(\%env, {
CONTENT_LENGTH => 15,
CONTENT_TYPE => 'text/plain',
HTTP_HOST => 'example.com',
HTTP_USER_AGENT => 'hoge',
PATH_INFO => '/hoge',
REQUEST_METHOD => "POST",
REQUEST_URI => '/hoge',
QUERY_STRING => '',
SERVER_PROTOCOL => 'HTTP/1.1',
SCRIPT_NAME => '',
}, 'result of GET with headers');
$req = <<"EOT";
GET / HTTP/1.0\r
Foo: \r
Foo: \r
abc\r
de\r
Foo: fgh\r
\r
EOT
%env = ();
is(parse_http_request($req, \%env), length($req), 'multiline header');
is_deeply(\%env, {
HTTP_FOO => ', abc de, fgh',
PATH_INFO => '/',
QUERY_STRING => '',
REQUEST_METHOD => 'GET',
REQUEST_URI => '/',
SCRIPT_NAME => '',
SERVER_PROTOCOL => 'HTTP/1.0',
}, 'multiline');
# dumb HTTP client: https://github.com/miyagawa/Plack/issues/213
$req = <<"EOT";
GET /a/b#c HTTP/1.0\r
\r
EOT
%env = ();
is(parse_http_request($req, \%env), length($req), 'URI fragment');
is_deeply(\%env, {
SCRIPT_NAME => '',
PATH_INFO => '/a/b',
REQUEST_METHOD => 'GET',
REQUEST_URI => '/a/b#c',
QUERY_STRING => '',
SCRIPT_NAME => '',
SERVER_PROTOCOL => 'HTTP/1.0',
});
$req = <<"EOT";
GET /a/b%23c HTTP/1.0\r
\r
EOT
%env = ();
is(parse_http_request($req, \%env), length($req), '%23 -> #');
is_deeply(\%env, {
SCRIPT_NAME => '',
PATH_INFO => '/a/b#c',
REQUEST_METHOD => 'GET',
REQUEST_URI => '/a/b%23c',
QUERY_STRING => '',
SCRIPT_NAME => '',
SERVER_PROTOCOL => 'HTTP/1.0',
});
$req = <<"EOT";
GET /a/b?c=d#e HTTP/1.0\r
\r
EOT
%env = ();
is(parse_http_request($req, \%env), length($req), 'URI fragment after query string');
is_deeply(\%env, {
SCRIPT_NAME => '',
PATH_INFO => '/a/b',
REQUEST_METHOD => 'GET',
REQUEST_URI => '/a/b?c=d#e',
QUERY_STRING => 'c=d',
SCRIPT_NAME => '',
SERVER_PROTOCOL => 'HTTP/1.0',
});
my $w;
{
local $SIG{__WARN__} = sub { $w = shift };
$req = "GET /foo HTTP/1.0\r\n\r\n";
parse_http_request($req, \%env);
}
ok !$w;
done_testing;
|
