#!/bin/perl

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

use Arcus::Client;

use FindBin;
use lib "$FindBin::Bin";
use ArcusTestCommon;

if (not ArcusTestCommon->is_zk_port_opened()) {
  plan skip_all => "zk is not running...";
}

open(STDERR, '>', '/dev/null');

my $cache = ArcusTestCommon->create_client("perl-test:");
unless (ok($cache, "Check Arcus Client Is Created Appropriately")) {
  plan skip_all => "arcus client is not created appropriately...";
};

ok($cache->add("iek", 129), "Add Test");
is($cache->get("iek"), 129, "Get Test");

ok($cache->delete("iek"), "Delete Test");
ok(!$cache->get("iek"), "Get Fail Test");
ok(!$cache->delete("iek"), "Delete Fail Test");

# ok($cache->add("iek", 129), "Add Test");
# is($cache->get("iek"), 129, "Get Test");
#
# ok($cache->delete("iek", 1), "Delete After 1s Test");
# is($cache->get("iek"), 129, "Get Test");
#
# sleep(1);
# ok(!$cache->get("iek"), "Get After 1s Fail Test");
# ok(!$cache->delete("iek"), "Delete After 1s Fail Test");

ok($cache->flush_all, "Flush All");
done_testing();