comparison proxy_websocket.t @ 278:b6f0537afa01

Tests: fix pipelining tests in proxy_websocket.t.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 12 Apr 2013 18:19:18 +0400
parents ccebd3168b5b
children a9621dbbd0d4
comparison
equal deleted inserted replaced
277:8a41f7d38cc3 278:b6f0537afa01
164 } 164 }
165 165
166 # parse server response 166 # parse server response
167 167
168 $h->parse($got); 168 $h->parse($got);
169
170 # store the rest for later websocket_read()
171 # see websocket_read() for details
172
173 ${*$s}->{_websocket_frame} ||= Protocol::WebSocket::Frame->new();
174 ${*$s}->{_websocket_frame}->append($got);
175
169 return $s if $h->is_done; 176 return $s if $h->is_done;
170 } 177 }
171 178
172 sub websocket_write { 179 sub websocket_write {
173 my ($s, $message) = @_; 180 my ($s, $message) = @_;