Testing for leaks in AnyEvent::Redis::Federated witout the poll() call

leak-no-poll.t

#!/usr/bin/perl -w

use strict;
use lib ('../lib','./lib');
use Test::More tests => 1;
use AnyEvent;
use AnyEvent::Redis::Federated;

my %config = (
	'nodes' => {
		redis_0 => { address => 'localhost:63790' },
	},
);

# new client
my $redis = new AnyEvent::Redis::Federated(
	config      => \%config,
	tag         => 'default',
	debug       => 0,
);
ok($redis);

my $count = 0;
my $doit;
$doit = sub {
	$redis->set("foo", "bar", sub {
		$count++;
		$doit->();
	});
};
$doit->();
AnyEvent->condvar->recv;

exit;