Mercurial > hg > nginx-tests

comparison perl.t @ 285:484b713f57b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: remove perl.t TODO checks.
author Maxim Dounin <mdounin@mdounin.ru>
date Sat, 11 May 2013 21:03:59 +0400
parents 04832fc79805
children 389cee4c78aa
comparison
equal deleted inserted replaced
284:8fcc46212e5e 285:484b713f57b0
105 . 'Content-Length: 10' . CRLF . CRLF, 105 . 'Content-Length: 10' . CRLF . CRLF,
106 sleep => 0.1, 106 sleep => 0.1,
107 body => '1234567890' 107 body => '1234567890'
108 ), qr/body: 1234567890/, 'perl body late'); 108 ), qr/body: 1234567890/, 'perl body late');
109 109
110 TODO: {
111 local $TODO = 'broken' if $t->has_version('1.3.9');
112
113 like(http( 110 like(http(
114 'GET /body HTTP/1.0' . CRLF 111 'GET /body HTTP/1.0' . CRLF
115 . 'Host: localhost' . CRLF 112 . 'Host: localhost' . CRLF
116 . 'Content-Length: 10' . CRLF . CRLF 113 . 'Content-Length: 10' . CRLF . CRLF
117 . '12345', 114 . '12345',
118 sleep => 0.1, 115 sleep => 0.1,
119 body => '67890' 116 body => '67890'
120 ), qr/body: 1234567890/, 'perl body split'); 117 ), qr/body: 1234567890/, 'perl body split');
121
122 }
123
124 TODO: {
125 local $TODO = 'not yet';
126 118
127 like(http( 119 like(http(
128 'GET /body HTTP/1.1' . CRLF 120 'GET /body HTTP/1.1' . CRLF
129 . 'Host: localhost' . CRLF 121 . 'Host: localhost' . CRLF
130 . 'Connection: close' . CRLF 122 . 'Connection: close' . CRLF
152 . '12345', 144 . '12345',
153 sleep => 0.1, 145 sleep => 0.1,
154 body => '67890' . CRLF . '0' . CRLF . CRLF 146 body => '67890' . CRLF . '0' . CRLF . CRLF
155 ), qr/body: 1234567890/, 'perl body chunked split'); 147 ), qr/body: 1234567890/, 'perl body chunked split');
156 148
157 }
158
159 ############################################################################### 149 ###############################################################################