use warnings;
use strict;

use Test::More;

use FindBin;

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

if ($Memd::memd) {
    if ($Memd::params{utf8}) {
        plan tests => 1;
    } else {
        plan skip_all => "'utf8' is disabled";
    }
} else {
    plan skip_all => 'Not connected';
}


use utf8;

my $value = "Кириллица в UTF-8";
$Memd::memd->set('utf8', $value);
my $value2 = $Memd::memd->get('utf8');
is($value2, $value);

$Memd::memd->delete('utf8');