diff options
| author | Mitja Felicijan <mitja.felicijan@gmail.com> | 2026-01-21 22:52:54 +0100 |
|---|---|---|
| committer | Mitja Felicijan <mitja.felicijan@gmail.com> | 2026-01-21 22:52:54 +0100 |
| commit | dcacc00e3750300617ba6e16eb346713f91a783a (patch) | |
| tree | 38e2d4fb5ed9d119711d4295c6eda4b014af73fd /examples/redis-unstable/tests/unit/moduleapi/timer.tcl | |
| parent | 58dac10aeb8f5a041c46bddbeaf4c7966a99b998 (diff) | |
| download | crep-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.tcl | 99 |
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] - } -} - |
