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::Requires {
    'Test::TCP' => '1.18',
    'Cache::Memcached::Fast' => '0.19'
};

require Test::TCP;
require Cache::Memcached::Fast;
my $port = Test::TCP::empty_port();

my $pid = fork();
if ( $pid == 0 ) {
    exec $^X, '-I./lib','./bin/derived', '-i', 1, '--port', $port, './t/CmdsFile';
    exit;
}
sleep 3;
my $memcached = Cache::Memcached::Fast->new({
    servers => ["localhost:$port"]
});
ok($memcached->server_versions()->{"localhost:$port"});
ok($memcached->get("w1"));
ok($memcached->get("w2"));
ok($memcached->get("w1:full"));
ok($memcached->get("w2:full"));

kill 'TERM', $pid;
waitpid( $pid, 0);
done_testing();