use strict;
plan skip_all => q/$ENV{'REDISPATH'} isn't set/ if !defined $ENV{REDISPATH};
{
use_ok 'Redis::hiredis';
my $h = Redis::hiredis->new();
isa_ok($h, 'Redis::hiredis');
my $path = $ENV{'REDISPATH'};
my $c = $h->connect_unix($path);
is($c, undef, 'connect success');
my $r;
$r = $h->command('ping');
is $r, 'PONG', 'reply of ping command';
}
done_testing;