mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-22 08:08:53 -05:00
35 lines
1.2 KiB
Tcl
35 lines
1.2 KiB
Tcl
# SPDX-FileCopyrightText: 2024 Redict Contributors
|
|
# SPDX-FileCopyrightText: 2024 Salvatore Sanfilippo <antirez at gmail dot com>
|
|
#
|
|
# SPDX-License-Identifier: BSD-3-Clause
|
|
# SPDX-License-Identifier: LGPL-3.0-only
|
|
|
|
tags {"external:skip"} {
|
|
|
|
# Copy RDB with ziplist encoded hash to server path
|
|
set server_path [tmpdir "server.convert-ziplist-hash-on-load"]
|
|
|
|
exec cp -f tests/assets/zset-ziplist.rdb $server_path
|
|
start_server [list overrides [list "dir" $server_path "dbfilename" "zset-ziplist.rdb"]] {
|
|
test "RDB load ziplist zset: converts to listpack when RDB loading" {
|
|
r select 0
|
|
|
|
assert_encoding listpack zset
|
|
assert_equal 2 [r zcard zset]
|
|
assert_match {one 1 two 2} [r zrange zset 0 -1 withscores]
|
|
}
|
|
}
|
|
|
|
exec cp -f tests/assets/zset-ziplist.rdb $server_path
|
|
start_server [list overrides [list "dir" $server_path "dbfilename" "zset-ziplist.rdb" "zset-max-ziplist-entries" 1]] {
|
|
test "RDB load ziplist zset: converts to skiplist when zset-max-ziplist-entries is exceeded" {
|
|
r select 0
|
|
|
|
assert_encoding skiplist zset
|
|
assert_equal 2 [r zcard zset]
|
|
assert_match {one 1 two 2} [r zrange zset 0 -1 withscores]
|
|
}
|
|
}
|
|
|
|
}
|