### ----------------------------------------------------
### -- Cache::Memcached
### -- Licenses: 
### -- Authors: Cosimo Streppone
### -- File: t/00700-reconnect-timeout.t
### ----------------------------------------------------
#!/usr/bin/env perl6

use v6;
use Test;
use Cache::Memcached;
use CheckSocket;

my $testaddr = "127.0.0.1:11211";
my $testport = 11211;

plan 2;


if not check-socket($testport, "127.0.0.1") {
    skip-rest "no memcached server"; 
    exit;

}

my $memd = Cache::Memcached.new(
    servers   => [ $testaddr ],
    namespace => "Cache::Memcached::t/$*PID/" ~ (now % 100) ~ "/",
);

todo("may not be testing this right", 2);

my $time1 = now;
$memd.set("key", "bar");
my $time2 = now;
# 100ms is faster than the default connect timeout.
ok($time2 - $time1 > .1, "Expected pause while connecting");

# 100ms should be slow enough that dead socket reconnects happen faster than it.
$memd.set("key", "foo");
my $time3 = now;
ok($time3 - $time2 < .1, "Should return fast on retry");

done-testing();


