view release on metacpan or  search on metacpan

t/release-04_anyevent.t  view on Meta::CPAN

    #verbose => 1,
);

eval {
    use IO::Socket::INET;

    my $socket = IO::Socket::INET->new(
        Proto    => 'tcp',
        PeerAddr => $conf{host},
        PeerPort => $conf{port},
        Timeout  => 1,
      )
      or die 'Error connecting to AMQP Server!';

    close $socket;
};

plan skip_all => 'Connection failure: ' . $conf{host} . q{:} . $conf{port} if $@;

use AnyEvent::RabbitMQ::Fork;

t/release-05_multi_channel.t  view on Meta::CPAN

    vhost => '/',
);

eval {
    use IO::Socket::INET;

    my $socket = IO::Socket::INET->new(
        Proto    => 'tcp',
        PeerAddr => $conf{host},
        PeerPort => $conf{port},
        Timeout  => 1,
    ) or die 'Error connecting to AMQP Server!';

    close $socket;
};

plan skip_all => 'Connection failure: '
               . $conf{host} . ':' . $conf{port} if $@;
plan tests => 3;

use AnyEvent::RabbitMQ::Fork;