view release on metacpan or  search on metacpan

t/Redis.pm  view on Meta::CPAN

package t::Redis;
use strict;
use Test::TCP;
use Test::More;
use AnyEvent::Redis;
use FindBin;

use base qw(Exporter);
our @EXPORT = qw(test_redis);

sub test_redis(&;$) {
    my $cb = shift;
    my $args = shift;

    chomp(my $redis_server = `which redis-server`);
    unless ($redis_server && -e $redis_server && -x _) {
        plan skip_all => 'redis-server not found in your PATH';
    }

    test_tcp
        server => sub {