mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-22 16:18:28 -05:00
34 lines
1.3 KiB
Tcl
34 lines
1.3 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
|
|
|
|
set testmodule [file normalize tests/modules/hash.so]
|
|
|
|
start_server {tags {"modules"}} {
|
|
r module load $testmodule
|
|
|
|
test {Module hash set} {
|
|
r set k mystring
|
|
assert_error "WRONGTYPE*" {r hash.set k "" hello world}
|
|
r del k
|
|
# "" = count updates and deletes of existing fields only
|
|
assert_equal 0 [r hash.set k "" squirrel yes]
|
|
# "a" = COUNT_ALL = count inserted, modified and deleted fields
|
|
assert_equal 2 [r hash.set k "a" banana no sushi whynot]
|
|
# "n" = NX = only add fields not already existing in the hash
|
|
# "x" = XX = only replace the value for existing fields
|
|
assert_equal 0 [r hash.set k "n" squirrel hoho what nothing]
|
|
assert_equal 1 [r hash.set k "na" squirrel hoho something nice]
|
|
assert_equal 0 [r hash.set k "xa" new stuff not inserted]
|
|
assert_equal 1 [r hash.set k "x" squirrel ofcourse]
|
|
assert_equal 1 [r hash.set k "" sushi :delete: none :delete:]
|
|
r hgetall k
|
|
} {squirrel ofcourse banana no what nothing something nice}
|
|
|
|
test "Unload the module - hash" {
|
|
assert_equal {OK} [r module unload hash]
|
|
}
|
|
}
|