Mercurial > hg > nginx-tests

comparison perl.t @ 316:f36c3532a117

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: perl and proxy_set_body fixes merged, remove TODO.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 23 Jul 2013 19:45:15 +0400
parents e491290fe83a
children e9064d691790
comparison
equal deleted inserted replaced
315:03975bffc368 316:f36c3532a117
108 'GET / HTTP/1.0' . CRLF 108 'GET / HTTP/1.0' . CRLF
109 . 'X-Foo: foo' . CRLF 109 . 'X-Foo: foo' . CRLF
110 . 'Host: localhost' . CRLF . CRLF 110 . 'Host: localhost' . CRLF . CRLF
111 ), qr/xfoo: foo/, 'perl header_in unknown'); 111 ), qr/xfoo: foo/, 'perl header_in unknown');
112 112
113 TODO: {
114 local $TODO = 'broken in 1.3.14' unless $t->has_version('1.5.2');
115
116 like(http( 113 like(http(
117 'GET / HTTP/1.0' . CRLF 114 'GET / HTTP/1.0' . CRLF
118 . 'Cookie: foo' . CRLF 115 . 'Cookie: foo' . CRLF
119 . 'Host: localhost' . CRLF . CRLF 116 . 'Host: localhost' . CRLF . CRLF
120 ), qr/cookie: foo/, 'perl header_in cookie'); 117 ), qr/cookie: foo/, 'perl header_in cookie');
136 'GET / HTTP/1.0' . CRLF 133 'GET / HTTP/1.0' . CRLF
137 . 'X-Forwarded-For: foo1' . CRLF 134 . 'X-Forwarded-For: foo1' . CRLF
138 . 'X-Forwarded-For: foo2' . CRLF 135 . 'X-Forwarded-For: foo2' . CRLF
139 . 'Host: localhost' . CRLF . CRLF 136 . 'Host: localhost' . CRLF . CRLF
140 ), qr/xff: foo1, foo2/, 'perl header_in xff2'); 137 ), qr/xff: foo1, foo2/, 'perl header_in xff2');
141
142 }
143 138
144 # various request body tests 139 # various request body tests
145 140
146 like(http( 141 like(http(
147 'GET /body HTTP/1.0' . CRLF 142 'GET /body HTTP/1.0' . CRLF