CPAN::Groonga

out => $attempt,
	);
	alarm 0;
};

my $duration = tv_interval($start);
isnt($@, "failed to timeout\n", "failed to timeout");
isnt($@, '', "connect");

# give a bit of tolerance for the timeout.
done_t

ueuename = $mq->queue_declare(
		channel => 1,
		auto_delete => 1,
	)->queue;
} "queue.declare";

isnt($queuename, '');

my $exchangename = 'perl_transaction_exchange';
lives_ok {
	$mq->exchange_decla