source: t/key_ref.t @ 9f3297

use warnings;
use strict;

use Test::More;

use FindBin;

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

if ($Memd::memd) {
    plan tests => 5;
} else {
    plan skip_all => 'Not connected';
}


my $key = "key_ref";
my $value = "value ref check";
ok($Memd::memd->set($key, $value), 'Store');
my $h = $Memd::memd->get_multi($key);
is($h->{$key}, $value, 'Fetch');

my $old_key = $key;
substr($key, 3, 4, "");
is($h->{$old_key}, $value, 'Access with the old key');
ok(! exists $h->{$key}, 'Access with modified key');

ok($Memd::memd->delete($old_key), 'Delete');