AnyEvent-WebSocket-Server

 view release on metacpan or  search on metacpan

t/connetion_active_close.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(set_timeout start_server);
use testlib::ConnConfig;
use AnyEvent;
use AnyEvent::WebSocket::Server;
use AnyEvent::Handle;
use Protocol::WebSocket::Handshake::Client;
use Protocol::WebSocket::Frame;

set_timeout;

t/echo.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(start_server set_timeout memory_cycle_ok memory_cycle_exists);
use testlib::ConnConfig;
use AnyEvent::WebSocket::Server;
use AnyEvent::WebSocket::Client;
no utf8;

set_timeout;

testlib::ConnConfig->for_all_ok_conn_configs(sub {
    my ($cconfig) = @_;

t/error.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(start_server set_timeout);
use testlib::ConnConfig;
use AnyEvent::WebSocket::Server;
use Try::Tiny;
use Protocol::WebSocket::Handshake::Client;
use Protocol::WebSocket::Frame;
use AnyEvent::Handle;

set_timeout;

t/handshake.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(start_server set_timeout);
use testlib::ConnConfig;
use AnyEvent;
use AnyEvent::Handle;
use AnyEvent::WebSocket::Server;
use AnyEvent::WebSocket::Client;
use Protocol::WebSocket::Handshake::Client;

set_timeout;

t/max_payload_size.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(start_server set_timeout);
use testlib::ConnConfig;
use AnyEvent::WebSocket::Server;
use AnyEvent::WebSocket::Client;

set_timeout;

my $BIG_MAX_SIZE =  99999;
my $BIG_DATA_SIZE = 99900;

t/multiple_connections.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(start_server set_timeout);
use testlib::ConnConfig;
use AnyEvent;
use AnyEvent::WebSocket::Server;
use AnyEvent::WebSocket::Client;

set_timeout;

testlib::ConnConfig->for_all_ok_conn_configs(sub {
    my ($cconfig) = @_;

t/psgi_corona.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Requires {
    "Coro" => "0",
    "Corona::Server" => "0"
};
use Coro;
use Corona::Server;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::PSGI qw(run_tests);

run_tests sub {
    my ($port, $app) = @_;
    async {
        my $corona = Corona::Server->new(
            host => "127.0.0.1",
            log_level => 0,
        );
        $corona->{app} = $app;

t/psgi_twiggy.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Requires {
    "Twiggy::Server" => "0",
};
use Twiggy::Server;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::PSGI qw(run_tests);

run_tests sub {
    my ($port, $app) = @_;
    my $twiggy = Twiggy::Server->new(
        host => "127.0.0.1",
        port => $port
    );
    $twiggy->register_service($app);
    return $twiggy;

t/tls_error.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use AnyEvent;
use AnyEvent::WebSocket::Server;
use AnyEvent::WebSocket::Client;
use Try::Tiny;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::ConnConfig;
use testlib::Util qw(set_timeout start_server);

note("unmatched client/server connection");

set_timeout;

testlib::ConnConfig->for_all_ng_conn_configs(sub {
    my ($cconfig) = @_;
    my $server = AnyEvent::WebSocket::Server->new($cconfig->server_args);

t/validator.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ($FindBin::RealBin);
use testlib::Util qw(start_server set_timeout);
use testlib::ConnConfig;
use AnyEvent::WebSocket::Client;
use AnyEvent::WebSocket::Server;
use Try::Tiny;

set_timeout;

my $USER_ID_MIN = 1;
my $USER_ID_MAX = 100;

xt/browser.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ("$FindBin::RealBin/../t");
use testlib::Util qw(start_server set_timeout);
use AnyEvent::WebSocket::Server;

if(!$ENV{ANYEVENT_WEBSOCKET_SERVER_BROWSER_TEST}) {
    plan skip_all => "Set environment variable ANYEVENT_WEBSOCKET_SERVER_BROWSER_TEST=1 to run the browser test.";
}

my $TIMEOUT = 30;
set_timeout($TIMEOUT);

xt/handshake_example.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib ("$FindBin::RealBin/../t");
use testlib::Util qw(set_timeout);
use AnyEvent::WebSocket::Client;
use AnyEvent;

set_timeout;

sub error_response {
    my ($fh, $error) = @_;
    close($fh);
}