# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1365776358 -14400
# Node ID b6f0537afa01a24e3d20a90a6251a67d23ccb5ca
# Parent  8a41f7d38cc37d5c558eb63704b165151b6d9c4f
Tests: fix pipelining tests in proxy_websocket.t.

diff --git a/proxy_websocket.t b/proxy_websocket.t
--- 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;
 }