changeset 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 8a41f7d38cc3
children c754b1c79efe
files proxy_websocket.t
diffstat 1 files changed, 7 insertions(+), 0 deletions(-) [+]
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;
 }