The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;

use Test::RedisServer;

local $ENV{PATH} = '';

my $server;
eval {
    $server = Test::RedisServer->new;
};
ok !$server, 'server does not created ok';
like $@, qr/^exec failed: no such file or directory/m, 'error msg ok';

done_testing;