6 use Test::More tests => 8;
10 use_ok('Redis::Hash');
13 ok(my $o = tie(my %h, 'Redis::Hash', 'test-redis-hash'), 'tie');
15 isa_ok($o, 'Redis::Hash');
19 ok(!keys %h, 'empty');
21 ok(%h = ('foo' => 42, 'bar' => 1, 'baz' => 99), '=');
23 is_deeply([sort keys %h], ['bar', 'baz', 'foo'], 'keys');
25 is_deeply(\%h, {bar => 1, baz => 99, foo => 42,}, 'structure');
27 ok(my $mem = $o->info->{used_memory}, 'info');