#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 11;
use_ok 'Protocol::WebSocket::Response';
my $res;
$res = Protocol::WebSocket::Response->new;
ok $res->parse("HTTP/1.1 101 Switching Protocols\x0d\x0a");
ok $res->parse("Upgrade: websocket\x0d\x0a");
ok $res->parse("Connection: Upgrade\x0d\x0a");
ok $res->parse("Sec-WebSocket-Accept: s3pPLMBiTxaQ9kYGzzhZRbK+xOo=\x0d\x0a");
ok $res->parse("Sec-WebSocket-Protocol: chat\x0d\x0a");
ok $res->parse("\x0d\x0a");
ok $res->is_done;
ok !$res->secure;
is $res->subprotocol => 'chat';
$res = Protocol::WebSocket::Response->new(
key => 'dGhlIHNhbXBsZSBub25jZQ==',
subprotocol => 'chat'
);
is $res->to_string => "HTTP/1.1 101 WebSocket Protocol Handshake\x0d\x0a"
. "Upgrade: WebSocket\x0d\x0a"
. "Connection: Upgrade\x0d\x0a"
. "Sec-WebSocket-Accept: s3pPLMBiTxaQ9kYGzzhZRbK+xOo=\x0d\x0a"
. "Sec-WebSocket-Protocol: chat\x0d\x0a"
. "\x0d\x0a";