Mercurial > hg > nginx-tests

comparison perl.t @ 298:e491290fe83a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: adjust perl.t TODO.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 11 Jun 2013 22:05:58 +0400
parents 389cee4c78aa
children f36c3532a117
comparison
equal deleted inserted replaced
297:389cee4c78aa 298:e491290fe83a
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: { 113 TODO: {
114 local $TODO = 'broken in 1.3.14'; 114 local $TODO = 'broken in 1.3.14' unless $t->has_version('1.5.2');
115 115
116 like(http( 116 like(http(
117 'GET / HTTP/1.0' . CRLF 117 'GET / HTTP/1.0' . CRLF
118 . 'Cookie: foo' . CRLF 118 . 'Cookie: foo' . CRLF
119 . 'Host: localhost' . CRLF . CRLF 119 . 'Host: localhost' . CRLF . CRLF