#!/usr/bin/env perl
use strict;
use warnings;

use Test::More;

plan 'no_plan';

use Cache::Memcached; 

my $cache = Cache::Memcached->new( { servers => ["127.0.0.1:11211"] } );

$cache->delete("test1");
is(undef, $cache->get("test1"));

# Does setting work.
$cache->set("test1", "value1");
is("value1", $cache->get("test1"));

# And changing
$cache->set("test1", "value2");
is("value2", $cache->get("test1"));

# Deleting work?
$cache->delete("test1");
is(undef, $cache->get("test1"));

# utf8?
use Encode;
$cache->set("bla", v40060);
my $a = $cache->get("bla");
$a = Encode::decode_utf8($a); # TODO Memcache remove the utf8 flag.
is(v40060, $a);

TODO: {
    local $TODO = "utf8 does not work as key"; 
    $cache->set(v39970, v40060);
    is(v40060, $cache->get(v39970));
}

# Something to profile
for (1..100) {
    $cache->set("key$_", "value$_");
    for (1..100) {
        $cache->get("key$_");
    }
}