#!perl
use lib 't/lib';
use Test::Routine;
use Test::Routine::Util;
use MyTesting;
use Net::Stomp::Frame;
use Test::Plack::Handler::Stomp;
has t => (
is => 'rw',
default => sub { Test::Plack::Handler::Stomp->new() }
);
test 'instantiate the handler' => sub {
my ($self) = @_;
ok($self->t->handler,'built');
};
test 'connecting with defaults' => sub {
my ($self) = @_;
my $t=$self->t;
$t->handler->run();
is($t->constructor_calls_count,1,'built once');
my $call = $t->constructor_calls->[0];
is_deeply($call,
{
hostname => 'localhost',
port => 61613,
},
'default parameters');
is($t->connection_calls_count,1,'connected once');
$call = $t->connection_calls->[0];
is_deeply($call,{},'no connection headers');
};
run_me;
done_testing;