Mercurial > hg > nginx-tests

annotate http_headers_multi.t @ 1960:e44ee916b959

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: adjusted http_headers_multi.t for $content_length changes. The $content_length variable is going to be not available after discarding the request body. As such, the relevant location is now proxied, so the request body is not discarded.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 27 Apr 2024 18:55:21 +0300
parents a2572de6e840
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1766
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
1 #!/usr/bin/perl
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
2
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
3 # (C) Maxim Dounin
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
4 # (C) Nginx, Inc.
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
5
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
6 # Tests for handling of multiple http headers and access via variables.
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
7
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
8 ###############################################################################
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
9
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
10 use warnings;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
11 use strict;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
12
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
13 use Test::More;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
14 use Socket qw/ CRLF /;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
15
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
16 BEGIN { use FindBin; chdir($FindBin::Bin); }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
17
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
18 use lib 'lib';
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
19 use Test::Nginx;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
20
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
21 ###############################################################################
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
22
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
23 select STDERR; $| = 1;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
24 select STDOUT; $| = 1;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
25
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
26 my $t = Test::Nginx->new()->has(qw/http rewrite proxy/)->plan(42);
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
27
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
28 $t->write_file_expand('nginx.conf', <<'EOF');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
29
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
30 %%TEST_GLOBALS%%
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
31
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
32 daemon off;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
33
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
34 events {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
35 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
36
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
37 http {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
38 %%TEST_GLOBALS_HTTP%%
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
39
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
40 server {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
41 listen 127.0.0.1:8080;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
42 server_name localhost;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
43
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
44 location / {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
45 add_header X-Forwarded-For $http_x_forwarded_for;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
46 add_header X-Cookie $http_cookie;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
47 add_header X-Foo $http_foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
48
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
49 add_header X-Cookie-Foo $cookie_foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
50 add_header X-Cookie-Bar $cookie_bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
51 add_header X-Cookie-Bazz $cookie_bazz;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
52
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
53 return 204;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
54 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
55
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
56 location /s {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
57 add_header Cache-Control foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
58 add_header Cache-Control bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
59 add_header Cache-Control bazz;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
60
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
61 add_header Link foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
62 add_header Link bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
63 add_header Link bazz;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
64
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
65 add_header Foo foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
66 add_header Foo bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
67 add_header Foo bazz;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
68
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
69 add_header X-Sent-CC $sent_http_cache_control;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
70 add_header X-Sent-Link $sent_http_link;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
71 add_header X-Sent-Foo $sent_http_foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
72
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
73 return 204;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
74 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
75
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
76 location /t {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
77 add_trailer Foo foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
78 add_trailer Foo bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
79 add_trailer Foo bazz;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
80 add_trailer X-Sent-Trailer-Foo $sent_trailer_foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
81
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
82 return 200 "";
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
83 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
84
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
85 location /v {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
86 add_header X-Forwarded-For $http_x_forwarded_for;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
87 add_header X-Cookie $http_cookie;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
88
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
89 add_header X-HTTP-Host $http_host;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
90 add_header X-User-Agent $http_user_agent;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
91 add_header X-Referer $http_referer;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
92 add_header X-Via $http_via;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
93
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
94 add_header X-Content-Length $content_length;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
95 add_header X-Content-Type $content_type;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
96 add_header X-Host $host;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
97 add_header X-Remote-User $remote_user;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
98
1960
e44ee916b959 Tests: adjusted http_headers_multi.t for $content_length changes.
Maxim Dounin <mdounin@mdounin.ru>
parents: 1766
diff changeset
99 proxy_pass http://127.0.0.1:8080/backend;
1766
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
100 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
101
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
102 location /d {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
103 return 204;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
104 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
105
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
106 location /u {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
107 add_header X-Upstream-Set-Cookie $upstream_http_set_cookie;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
108 add_header X-Upstream-Bar $upstream_http_bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
109
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
110 add_header X-Upstream-Cookie-Foo $upstream_cookie_foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
111 add_header X-Upstream-Cookie-Bar $upstream_cookie_bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
112 add_header X-Upstream-Cookie-Bazz $upstream_cookie_bazz;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
113
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
114 proxy_pass http://127.0.0.1:8080/backend;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
115 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
116
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
117 location /backend {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
118 add_header Set-Cookie foo=1;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
119 add_header Set-Cookie bar=2;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
120 add_header Set-Cookie bazz=3;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
121 add_header Bar foo;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
122 add_header Bar bar;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
123 add_header Bar bazz;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
124 return 204;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
125 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
126 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
127 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
128
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
129 EOF
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
130
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
131 $t->run();
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
132
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
133 ###############################################################################
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
134
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
135 # combining multiple headers:
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
136 #
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
137 # $http_cookie, $http_x_forwarded_for, $sent_http_cache_control,
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
138 # and $sent_http_link with special handling, other headers with
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
139 # general handling
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
140
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
141 # request headers, $http_*
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
142
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
143 like(get('/', map { "X-Forwarded-For: $_" } qw/ foo bar bazz /),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
144 qr/X-Forwarded-For: foo, bar, bazz/, 'multi $http_x_forwarded_for');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
145 like(get('/', 'Cookie: foo=1', 'Cookie: bar=2', 'Cookie: bazz=3'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
146 qr/X-Cookie: foo=1; bar=2; bazz=3/, 'multi $http_cookie');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
147
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
148 TODO: {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
149 local $TODO = 'not yet' unless $t->has_version('1.23.0');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
150
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
151 like(get('/', 'Foo: foo', 'Foo: bar', 'Foo: bazz'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
152 qr/X-Foo: foo, bar, bazz/, 'multi $http_foo');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
153
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
154 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
155
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
156 # request cookies, $cookie_*
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
157
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
158 my $r = get('/', 'Cookie: foo=1', 'Cookie: bar=2', 'Cookie: bazz=3');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
159
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
160 like($r, qr/X-Cookie-Foo: 1/, '$cookie_foo');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
161 like($r, qr/X-Cookie-Bar: 2/, '$cookie_bar');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
162 like($r, qr/X-Cookie-Bazz: 3/, '$cookie_bazz');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
163
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
164 # response headers, $http_*
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
165
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
166 $r = get('/s');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
167
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
168 like($r, qr/X-Sent-CC: foo, bar, bazz/, 'multi $sent_http_cache_control');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
169 like($r, qr/X-Sent-Link: foo, bar, bazz/, 'multi $sent_http_link');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
170
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
171 TODO: {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
172 local $TODO = 'not yet' unless $t->has_version('1.23.0');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
173
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
174 like($r, qr/X-Sent-Foo: foo, bar, bazz/, 'multi $sent_http_foo');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
175
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
176 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
177
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
178 # upstream response headers, $upstream_http_*
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
179
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
180 $r = get('/u');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
181
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
182 TODO: {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
183 local $TODO = 'not yet' unless $t->has_version('1.23.0');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
184
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
185 like($r, qr/X-Upstream-Set-Cookie: foo=1, bar=2, bazz=3/,
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
186 'multi $upstream_http_set_cookie');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
187 like($r, qr/X-Upstream-Bar: foo, bar, bazz/, 'multi $upstream_http_bar');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
188
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
189 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
190
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
191 # upstream response cookies, $upstream_cookie_*
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
192
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
193 like($r, qr/X-Upstream-Cookie-Foo: 1/, '$upstream_cookie_foo');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
194 like($r, qr/X-Upstream-Cookie-Bar: 2/, '$upstream_cookie_bar');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
195 like($r, qr/X-Upstream-Cookie-Bazz: 3/, '$upstream_cookie_bazz');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
196
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
197 # response trailers, $sent_trailer_*
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
198
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
199 TODO: {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
200 local $TODO = 'not yet' unless $t->has_version('1.23.0');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
201
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
202 like(get('/t'), qr/X-Sent-Trailer-Foo: foo, bar, bazz/,
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
203 'multi $sent_trailer_foo');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
204
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
205 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
206
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
207 # various variables for request headers:
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
208 #
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
209 # $http_host, $http_user_agent, $http_referer
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
210 # multiple Host, User-Agent, Referer headers are invalid, but we currently
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
211 # reject only requests with multiple Host headers
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
212 #
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
213 # $http_via, $http_x_forwarded_for, $http_cookie
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
214 # multiple headers are valid
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
215
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
216 like(get('/v'), qr/X-HTTP-Host: localhost/, '$http_host');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
217 like(get('/v', 'Host: foo', 'Host: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
218 qr/400 Bad/, 'duplicate host rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
219
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
220 TODO: {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
221 local $TODO = 'not yet' unless $t->has_version('1.23.0');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
222
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
223 like(get('/v', 'User-Agent: foo', 'User-Agent: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
224 qr/X-User-Agent: foo, bar/, 'multi $http_user_agent (invalid)');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
225 like(get('/v', 'Referer: foo', 'Referer: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
226 qr/X-Referer: foo, bar/, 'multi $http_referer (invalid)');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
227 like(get('/v', 'Via: foo', 'Via: bar', 'Via: bazz'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
228 qr/X-Via: foo, bar, bazz/, 'multi $http_via');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
229
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
230 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
231
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
232 like(get('/v', 'Cookie: foo', 'Cookie: bar', 'Cookie: bazz'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
233 qr/X-Cookie: foo; bar; bazz/, 'multi $http_cookie');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
234 like(get('/v', 'X-Forwarded-For: foo', 'X-Forwarded-For: bar',
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
235 'X-Forwarded-For: bazz'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
236 qr/X-Forwarded-For: foo, bar, bazz/, 'multi $http_x_forwarded_for');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
237
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
238 # other variables related to request headers:
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
239 #
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
240 # $content_length, $content_type, $host, $remote_user
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
241
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
242 like(get('/v', 'Content-Length: 0'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
243 qr/X-Content-Length: 0/, '$content_length');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
244 like(get('/v', 'Content-Length: 0', 'Content-Length: 0'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
245 qr/400 Bad/, 'duplicate Content-Length rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
246
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
247 like(get('/v', 'Content-Type: foo'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
248 qr/X-Content-Type: foo/, '$content_type');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
249
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
250 TODO: {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
251 local $TODO = 'not yet' unless $t->has_version('1.23.0');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
252
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
253 like(get('/v', 'Content-Type: foo', 'Content-Type: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
254 qr/X-Content-Type: foo, bar/, 'multi $content_type (invalid)');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
255
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
256 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
257
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
258 like(http("GET /v HTTP/1.0" . CRLF . CRLF),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
259 qr/X-Host: localhost/, '$host from server_name');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
260 like(http("GET /v HTTP/1.0" . CRLF . "Host: foo" . CRLF . CRLF),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
261 qr/X-Host: foo/, '$host');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
262 like(http("GET /v HTTP/1.0" . CRLF . "Host: foo" . CRLF .
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
263 "Host: bar" . CRLF . CRLF),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
264 qr/400 Bad/, 'duplicate host rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
265
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
266 like(get('/v', 'Authorization: Basic dXNlcjpzZWNyZXQ='),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
267 qr/X-Remote-User: user/, '$remote_user');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
268 like(get('/v', 'Authorization: Basic dXNlcjpzZWNyZXQ=',
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
269 'Authorization: Basic dXNlcjpzZWNyZXQ='),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
270 qr/400 Bad/, 'duplicate authorization rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
271
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
272 # request headers required to be unique:
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
273 #
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
274 # Host, If-Modified-Since, If-Unmodified-Since, If-Match, If-None-Match,
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
275 # Content-Length, Content-Range, If-Range, Transfer-Encoding, Expect,
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
276 # Authorization
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
277
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
278 like(get('/d', 'Host: foo', 'Host: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
279 qr/400 Bad/, 'duplicate Host rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
280 like(get('/d', 'If-Modified-Since: foo', 'If-Modified-Since: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
281 qr/400 Bad/, 'duplicate If-Modified-Since rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
282 like(get('/d', 'If-Unmodified-Since: foo', 'If-Unmodified-Since: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
283 qr/400 Bad/, 'duplicate If-Unmodified-Since rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
284 like(get('/d', 'If-Match: foo', 'If-Match: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
285 qr/400 Bad/, 'duplicate If-Match rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
286 like(get('/d', 'If-None-Match: foo', 'If-None-Match: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
287 qr/400 Bad/, 'duplicate If-None-Match rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
288 like(get('/d', 'Content-Length: 0', 'Content-Length: 0'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
289 qr/400 Bad/, 'duplicate Content-Length rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
290 like(get('/d', 'Content-Range: foo', 'Content-Range: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
291 qr/400 Bad/, 'duplicate Content-Range rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
292 like(get('/d', 'If-Range: foo', 'If-Range: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
293 qr/400 Bad/, 'duplicate If-Range rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
294 like(get('/d', 'Transfer-Encoding: foo', 'Transfer-Encoding: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
295 qr/400 Bad/, 'duplicate Transfer-Encoding rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
296 like(get('/d', 'Expect: foo', 'Expect: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
297 qr/400 Bad/, 'duplicate Expect rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
298 like(get('/d', 'Authorization: foo', 'Authorization: bar'),
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
299 qr/400 Bad/, 'duplicate Authorization rejected');
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
300
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
301 ###############################################################################
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
302
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
303 sub get {
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
304 my ($url, @headers) = @_;
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
305 return http(
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
306 "GET $url HTTP/1.1" . CRLF .
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
307 'Host: localhost' . CRLF .
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
308 'Connection: close' . CRLF .
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
309 join(CRLF, @headers) . CRLF . CRLF
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
310 );
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
311 }
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
312
a2572de6e840 Tests: tests for various http header variables.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff changeset
313 ###############################################################################