summaryrefslogtreecommitdiff
path: root/examples/redis-unstable/tests/unit/moduleapi/timer.tcl
diff options
context:
space:
mode:
authorMitja Felicijan <mitja.felicijan@gmail.com>2026-01-21 22:52:54 +0100
committerMitja Felicijan <mitja.felicijan@gmail.com>2026-01-21 22:52:54 +0100
commitdcacc00e3750300617ba6e16eb346713f91a783a (patch)
tree38e2d4fb5ed9d119711d4295c6eda4b014af73fd /examples/redis-unstable/tests/unit/moduleapi/timer.tcl
parent58dac10aeb8f5a041c46bddbeaf4c7966a99b998 (diff)
downloadcrep-dcacc00e3750300617ba6e16eb346713f91a783a.tar.gz
Remove testing data
Diffstat (limited to 'examples/redis-unstable/tests/unit/moduleapi/timer.tcl')
-rw-r--r--examples/redis-unstable/tests/unit/moduleapi/timer.tcl99
1 files changed, 0 insertions, 99 deletions
diff --git a/examples/redis-unstable/tests/unit/moduleapi/timer.tcl b/examples/redis-unstable/tests/unit/moduleapi/timer.tcl
deleted file mode 100644
index 1e83888..0000000
--- a/examples/redis-unstable/tests/unit/moduleapi/timer.tcl
+++ /dev/null
@@ -1,99 +0,0 @@
-set testmodule [file normalize tests/modules/timer.so]
-
-start_server {tags {"modules external:skip"}} {
- r module load $testmodule
-
- test {RM_CreateTimer: a sequence of timers work} {
- # We can't guarantee same-ms but we try using MULTI/EXEC
- r multi
- for {set i 0} {$i < 20} {incr i} {
- r test.createtimer 10 timer-incr-key
- }
- r exec
-
- after 500
- assert_equal 20 [r get timer-incr-key]
- }
-
- test {RM_GetTimer: basic sanity} {
- # Getting non-existing timer
- assert_equal {} [r test.gettimer 0]
-
- # Getting a real timer
- set id [r test.createtimer 10000 timer-incr-key]
- set info [r test.gettimer $id]
-
- assert_equal "timer-incr-key" [lindex $info 0]
- set remaining [lindex $info 1]
- assert {$remaining < 10000 && $remaining > 1}
- # Stop the timer after get timer test
- assert_equal 1 [r test.stoptimer $id]
- }
-
- test {RM_StopTimer: basic sanity} {
- r set "timer-incr-key" 0
- set id [r test.createtimer 1000 timer-incr-key]
-
- assert_equal 1 [r test.stoptimer $id]
-
- # Wait to be sure timer doesn't execute
- after 2000
- assert_equal 0 [r get timer-incr-key]
-
- # Stop non-existing timer
- assert_equal 0 [r test.stoptimer $id]
- }
-
- test {Timer appears non-existing after it fires} {
- r set "timer-incr-key" 0
- set id [r test.createtimer 10 timer-incr-key]
-
- # verify timer fired
- after 500
- assert_equal 1 [r get timer-incr-key]
-
- # verify id does not exist
- assert_equal {} [r test.gettimer $id]
- }
-
- test "Module can be unloaded when timer was finished" {
- r set "timer-incr-key" 0
- r test.createtimer 500 timer-incr-key
-
- # Make sure the Timer has not been fired
- assert_equal 0 [r get timer-incr-key]
- # Module can not be unloaded since the timer was ongoing
- catch {r module unload timer} err
- assert_match {*the module holds timer that is not fired*} $err
-
- # Wait to be sure timer has been finished
- wait_for_condition 10 500 {
- [r get timer-incr-key] == 1
- } else {
- fail "Timer not fired"
- }
-
- # Timer fired, can be unloaded now.
- assert_equal {OK} [r module unload timer]
- }
-
- test "Module can be unloaded when timer was stopped" {
- r module load $testmodule
- r set "timer-incr-key" 0
- set id [r test.createtimer 5000 timer-incr-key]
-
- # Module can not be unloaded since the timer was ongoing
- catch {r module unload timer} err
- assert_match {*the module holds timer that is not fired*} $err
-
- # Stop the timer
- assert_equal 1 [r test.stoptimer $id]
-
- # Make sure the Timer has not been fired
- assert_equal 0 [r get timer-incr-key]
-
- # Timer has stopped, can be unloaded now.
- assert_equal {OK} [r module unload timer]
- }
-}
-