### ----------------------------------------------------
### -- Cache::Memcached
### -- Licenses: 
### -- Authors: Cosimo Streppone
### -- File: t/00200-internals.t
### ----------------------------------------------------
use v6;
use Test;
use CheckSocket;
use Cache::Memcached;

plan 8;

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

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

}

my $memd;

my $ns = "Cache::Memcached::t/$*PID/" ~ (now % 100) ~ "/";

lives-ok {
$memd = Cache::Memcached.new(
    servers   => [ $testaddr ],
    namespace => $ns
) }, "can create a Cache::Memcached";

isa-ok($memd, 'Cache::Memcached', "and it's the right sort of object");

is($memd.namespace, $ns, "namepace okay");

my $sock;

lives-ok { $sock = $memd.sock-to-host($testaddr) }, "sock_to_host";

isa-ok $sock, IO::Socket::INET, "returns a socket";

my $lines;

lives-ok { $lines = $memd.write-and-read($sock, "version\r\n") }, "_write_and_read";

like($lines, /VERSION/, "got version back");

lives-ok { $lines = $memd.write-and-read($sock, "stats\r\n") }, "_write_and_read";


done-testing();


# vim: ft=perl6


