blob: 4e9dd0f0966db16936f62fd3c238e2339402810d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
set testmodule [file normalize tests/modules/timer.so]
start_server {tags {"modules"}} {
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]
}
}
|
