view release on metacpan or  search on metacpan

t/03_poll.t  view on Meta::CPAN

use common::sense;

use Getopt::Long;

use RPC::ExtDirect::Test::Pkg::PollProvider;

use lib 't/lib';
use RPC::ExtDirect::Test::Util::AnyEvent;
use RPC::ExtDirect::Test::Data::Poll;

use AnyEvent::HTTPD::ExtDirect;

my ($host, $port) = ('127.0.0.1', 0);
GetOptions('host=s' => \$host, 'port=i' => \$port);

my $tests = RPC::ExtDirect::Test::Data::Poll::get_tests;

run_tests($tests, $host, $port, @ARGV);