mirror of
https://codeberg.org/redict/redict.git
synced 2025-01-23 00:28:26 -05:00
ea36d4de17
List functions operating on elements by index:
* RM_ListGet
* RM_ListSet
* RM_ListInsert
* RM_ListDelete
Iteration is done using a simple for loop over indices.
The index based functions use an internal iterator as an optimization.
This is explained in the docs:
```
* Many of the list functions access elements by index. Since a list is in
* essence a doubly-linked list, accessing elements by index is generally an
* O(N) operation. However, if elements are accessed sequentially or with
* indices close together, the functions are optimized to seek the index from
* the previous index, rather than seeking from the ends of the list.
*
* This enables iteration to be done efficiently using a simple for loop:
*
* long n = RM_ValueLength(key);
* for (long i = 0; i < n; i++) {
* RedisModuleString *elem = RedisModule_ListGet(key, i);
* // Do stuff...
* }
```
67 lines
1.9 KiB
Tcl
67 lines
1.9 KiB
Tcl
set testmodule [file normalize tests/modules/list.so]
|
|
|
|
start_server {tags {"modules"}} {
|
|
r module load $testmodule
|
|
|
|
test {Module list set, get, insert, delete} {
|
|
r del k
|
|
r rpush k x
|
|
# insert, set, get
|
|
r list.insert k 0 foo
|
|
r list.insert k -1 bar
|
|
r list.set k 1 xyz
|
|
assert_equal {foo xyz bar} [r list.getall k]
|
|
assert_equal {foo} [r list.get k 0]
|
|
assert_equal {xyz} [r list.get k 1]
|
|
assert_equal {bar} [r list.get k 2]
|
|
assert_equal {bar} [r list.get k -1]
|
|
assert_equal {foo} [r list.get k -3]
|
|
assert_error {ERR index out*} {r list.get k -4}
|
|
assert_error {ERR index out*} {r list.get k 3}
|
|
# remove
|
|
assert_error {ERR index out*} {r list.delete k -4}
|
|
assert_error {ERR index out*} {r list.delete k 3}
|
|
r list.delete k 0
|
|
r list.delete k -1
|
|
assert_equal {xyz} [r list.getall k]
|
|
# removing the last element deletes the list
|
|
r list.delete k 0
|
|
assert_equal 0 [r exists k]
|
|
}
|
|
|
|
test {Module list iteration} {
|
|
r del k
|
|
r rpush k x y z
|
|
assert_equal {x y z} [r list.getall k]
|
|
assert_equal {z y x} [r list.getall k REVERSE]
|
|
}
|
|
|
|
test {Module list insert & delete} {
|
|
r del k
|
|
r rpush k x y z
|
|
r list.edit k ikikdi foo bar baz
|
|
r list.getall k
|
|
} {foo x bar y baz}
|
|
|
|
test {Module list insert & delete, neg index} {
|
|
r del k
|
|
r rpush k x y z
|
|
r list.edit k REVERSE ikikdi foo bar baz
|
|
r list.getall k
|
|
} {baz y bar z foo}
|
|
|
|
test {Module list set while iterating} {
|
|
r del k
|
|
r rpush k x y z
|
|
r list.edit k rkr foo bar
|
|
r list.getall k
|
|
} {foo y bar}
|
|
|
|
test {Module list set while iterating, neg index} {
|
|
r del k
|
|
r rpush k x y z
|
|
r list.edit k reverse rkr foo bar
|
|
r list.getall k
|
|
} {bar y foo}
|
|
}
|