view release on metacpan or  search on metacpan

t/publisher.t  view on Meta::CPAN

use Test::More tests => 2;
use Test::Mojo;
use lib './lib';

require_ok('AMQP::Publisher');

my $p = AMQP::Publisher->new;

isa_ok($p,'AMQP::Publisher');

t/subscriber.t  view on Meta::CPAN

use Test::More;
use Test::Mojo;
use lib './lib';

require_ok('AMQP::Subscriber');

my $s = AMQP::Subscriber->new;

isa_ok($s,'AMQP::Subscriber');

# Test overriding the defaults
$s->server('amqp://foo:bar@test:25672/test');
is($s->host, 'test', 'host set');