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