1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#!perl
#
# This file is part of Redis
#
# This software is Copyright (c) 2015 by Pedro Melo, Damien Krotkine.
#
# This is free software, licensed under:
#
# The Artistic License 2.0 (GPL Compatible)
#
use warnings;
use strict;
use Test::More;
use Test::Deep;
use Redis::Hash;
use lib 't/tlib';
use Test::SpawnRedisServer;
use constant SSL_AVAILABLE => eval { require IO::Socket::SSL } || 0;
my ($c, $t, $srv) = redis();
END {
$c->() if $c;
$t->() if $t;
}
my $use_ssl = $t ? SSL_AVAILABLE : 0;
## Setup
my %my_hash;
ok(my $redis = tie(%my_hash, 'Redis::Hash', 'my_hash',
server => $srv,
ssl => $use_ssl,
SSL_verify_mode => 0), 'tied to our test redis-server');
ok($redis->ping, 'pinged fine');
isa_ok($redis, 'Redis::Hash');
## Direct access
subtest 'direct access' => sub {
%my_hash = ();
cmp_deeply(\%my_hash, {}, 'empty list ok');
%my_hash = (a => 'foo', b => 'bar', c => 'baz');
cmp_deeply(\%my_hash, { a => 'foo', b => 'bar', c => 'baz' }, 'Set multiple values ok');
$my_hash{b} = 'BAR';
cmp_deeply(\%my_hash, { a => 'foo', b => 'BAR', c => 'baz' }, 'Set single value ok');
is($my_hash{c}++, 'baz', 'get single value ok');
is(++$my_hash{c}, 'bbb', '... even with post/pre-increments');
};
## Hash functions
subtest 'hash functions' => sub {
ok(my @keys = keys(%my_hash), 'keys ok');
cmp_deeply(\@keys, bag(qw( a b c )), '... resulting list as expected');
ok(my @values = values(%my_hash), 'values ok');
cmp_deeply(\@values, bag(qw( foo BAR bbb )), '... resulting list as expected');
%my_hash = reverse %my_hash;
cmp_deeply(\%my_hash, { foo => 'a', BAR => 'b', bbb => 'c' }, 'reverse() worked');
};
## Cleanup
%my_hash = ();
cmp_deeply(\%my_hash, {}, 'empty list ok');
done_testing();
|
