use strict;
use warnings;
use Test::More;

use Cache::Memcached::libmemcached;
my @servers = map glob, @ARGV;
if (!@servers) { die "No server specified.\n"; }

plan tests => 2 * @servers;

for my $server (@servers) {
    my $obj = Cache::Memcached::libmemcached->new({
        servers => [$server],
    });

    ok $obj, "$server - memcached obj ok";
    $obj->delete('foo');
    $obj->set(foo => $server, 3);
    my $value = $obj->get('foo');
    is $value, $server, "$server - successfully set and get the key foo";
}