1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use Test::More tests => 6;
7
8use_ok 'Protocol::WebSocket::Response';
9
10my $res;
11
12$res = Protocol::WebSocket::Response->new;
13$res->parse("foo\x0d\x0a");
14ok $res->is_state('error');
15is $res->error => 'Wrong response line';
16
17local $Protocol::WebSocket::Message::MAX_MESSAGE_SIZE = 1024;
18
19$res = Protocol::WebSocket::Response->new;
20ok not defined $res->parse('x' x (1024 * 10));
21ok $res->is_state('error');
22is $res->error => 'Message is too long';
23