Daisuke Maki > Test-TCP-Multi > Test::TCP::Multi

Download:
Test-TCP-Multi-0.00004.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.00004   Source  

NAME ^

Test::TCP::Multi - Test Using Multiple Servers/Clients

SYNOPSIS ^

    use Test::MultiTCP;

    test_multi_tcp(
        server1 => sub {
            my ($port, $data_hash) = @_;
        },
        server2 => sub { ... },
        server3 => sub { ... },
        client1 => sub {
            my ($data_hash) = @_;
        },
        client2 => sub { ... },
        client3 => sub { ... }
    );

WARNING ^

This code is mostly a copy of Test::TCP, but the portions that I wrote are eh... a HACK. Don't use unless you can debug things yourself!

DESCRIPTION ^

Test::TCP allows you to run client/server tests. With Test::TCP::Multi, you can have multiple servers and clients.

SERVERS ^

Any key that starts with the string "server" (case-insensitive) is considered to be a server. Test::TCP::Multi will attempt to find an open port for any of these entries.

Server callbacks should expect two arguments, the port number you should use, and a hashref containing pids of each entry, and a port number (if the entry is a server)

UNLIKE Test::TCP, YOU HAVE TO KILL THE SERVERS YOURSELF! This is because there's no way for Test::TCP::Multi to know if you're really done with the servers or not. Simply do something like

    kill_proc($data_hash->{ your_server_name }->{pid});

CLIENTS ^

Any key that starts with the string "client" (case-insensitive) is considered to be a client.

Server callbacks should expect two arguments, the port number you should use, and a hashref containing pids of each entry, and a port number (if the entry is a server)

AUTHOR ^

The important bits by Tokuhiro Matsuno (Test::TCP)

The hacked up stuff by Daisuke Maki <daisuke@endeworks.jp>

LICENSE ^

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html

syntax highlighting: