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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
set testmodule [file normalize tests/modules/scan.so]
start_server {tags {"modules"}} {
r module load $testmodule
test {Module scan keyspace} {
# the module create a scan command with filtering which also return values
r set x 1
r set y 2
r set z 3
r hset h f v
lsort [r scan.scan_strings]
} {{x 1} {y 2} {z 3}}
test {Module scan hash listpack} {
r hmset hh f1 v1 f2 v2
assert_encoding listpack hh
lsort [r scan.scan_key hh]
} {{f1 v1} {f2 v2}}
test {Module scan hash listpack with int value} {
r hmset hh1 f1 1
assert_encoding listpack hh1
lsort [r scan.scan_key hh1]
} {{f1 1}}
test {Module scan hash listpack with hexpire} {
r debug set-active-expire 0
r hmset hh f1 v1 f2 v2 f3 v3
r hexpire hh 100000 fields 1 f1
r hpexpire hh 1 fields 1 f3
after 10
assert_range [r httl hh fields 1 f1] 10000 100000
assert_encoding listpackex hh
r debug set-active-expire 1
lsort [r scan.scan_key hh]
} {{f1 v1} {f2 v2}} {needs:debug}
test {Module scan hash dict} {
r config set hash-max-ziplist-entries 2
r hmset hh f3 v3
assert_encoding hashtable hh
lsort [r scan.scan_key hh]
} {{f1 v1} {f2 v2} {f3 v3}}
test {Module scan hash dict with hexpire} {
r config set hash-max-listpack-entries 1
r del hh
r hmset hh f1 v1 f2 v2 f3 v3
r hexpire hh 100000 fields 1 f2
r hpexpire hh 5 fields 1 f3
assert_range [r httl hh fields 1 f2] 10000 100000
assert_encoding hashtable hh
after 10
lsort [r scan.scan_key hh]
} {{f1 v1} {f2 v2}}
test {Module scan hash with hexpire can return no items} {
r del hh
r debug set-active-expire 0
r hmset hh f1 v1 f2 v2 f3 v3
r hpexpire hh 1 fields 3 f1 f2 f3
after 10
assert_equal [r scan.scan_key hh] {}
r debug set-active-expire 1
} {OK} {needs:debug}
test {Module scan zset listpack} {
r zadd zz 1 f1 2 f2
assert_encoding listpack zz
lsort [r scan.scan_key zz]
} {{f1 1} {f2 2}}
test {Module scan zset skiplist} {
r config set zset-max-ziplist-entries 2
r zadd zz 3 f3
assert_encoding skiplist zz
lsort [r scan.scan_key zz]
} {{f1 1} {f2 2} {f3 3}}
test {Module scan set intset} {
r sadd ss 1 2
assert_encoding intset ss
lsort [r scan.scan_key ss]
} {{1 {}} {2 {}}}
test {Module scan set dict} {
r config set set-max-intset-entries 2
r sadd ss 3
assert_encoding hashtable ss
lsort [r scan.scan_key ss]
} {{1 {}} {2 {}} {3 {}}}
test {Module scan set listpack} {
r sadd ss1 a b c
assert_encoding listpack ss1
lsort [r scan.scan_key ss1]
} {{a {}} {b {}} {c {}}}
test "Unload the module - scan" {
assert_equal {OK} [r module unload scan]
}
}
|
