diff 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
line wrap: on
line diff
--- a/proxy_websocket.t
+++ b/proxy_websocket.t
@@ -166,6 +166,13 @@ sub websocket_connect {
 	# parse server response
 
 	$h->parse($got);
+
+	# store the rest for later websocket_read()
+	# see websocket_read() for details
+
+	${*$s}->{_websocket_frame} ||= Protocol::WebSocket::Frame->new();
+	${*$s}->{_websocket_frame}->append($got);
+
 	return $s if $h->is_done;
 }