view release on metacpan or  search on metacpan

t/multiple_connections.t  view on Meta::CPAN

    my $TRY_NUM = 50;
    my $client = AnyEvent::WebSocket::Client->new($cconfig->client_args);
    my @conns = ();

    foreach (1 .. $TRY_NUM) {
        my $conn = $client->connect($cconfig->connect_url($port, "/"))->recv;
        push(@conns, $conn);
    }

    is($connection_num, $TRY_NUM, "$TRY_NUM connections are kept alive.");

    foreach my $conn (@conns) {
        $conn->close();
    }

    $cv_finish->recv;
    is($connection_num, 0, "no connections");
});