use strict;
sub run {
my ( $pkg, $protocol, $selector) = @_;
SKIP: {
my $memd = test_client( protocol_class => $protocol, selector_class => $selector );
my @servers = @{ $memd->servers };
if ($protocol eq 'Binary') {
skip "stats() for Binary protocol unimplemented", scalar @servers;
}
my $cv = AE::cv;
$cv->begin;
$memd->stats( sub {
my $stats = shift;
foreach my $server ( @servers ) {
is( ref $stats->{$server}, 'HASH', "Stats for $server exists" );
}
$cv->end;
} );
$cv->recv;
}
done_testing;
}
1;