mirror of
https://github.com/fluencelabs/redis
synced 2025-03-17 16:10:50 +00:00
LATENCY command / monitor basic tests.
This commit is contained in:
parent
0dcc754f68
commit
a94aa39c86
50
tests/unit/latency-monitor.tcl
Normal file
50
tests/unit/latency-monitor.tcl
Normal file
@ -0,0 +1,50 @@
|
||||
start_server {tags {"latency-monitor"}} {
|
||||
# Set a threshold high enough to avoid spurious latency events.
|
||||
r config set latency-monitor-threshold 200
|
||||
r latency reset
|
||||
|
||||
test {Test latency events logging} {
|
||||
r debug sleep 0.3
|
||||
after 1100
|
||||
r debug sleep 0.4
|
||||
after 1100
|
||||
r debug sleep 0.5
|
||||
assert {[r latency history command] >= 3}
|
||||
}
|
||||
|
||||
test {LATENCY HISTORY output is ok} {
|
||||
set min 250
|
||||
set max 450
|
||||
foreach event [r latency history command] {
|
||||
lassign $event time latency
|
||||
assert {$latency >= $min && $latency <= $max}
|
||||
incr min 100
|
||||
incr max 100
|
||||
set last_time $time ; # Used in the next test
|
||||
}
|
||||
}
|
||||
|
||||
test {LATENCY LATEST output is ok} {
|
||||
foreach event [r latency latest] {
|
||||
lassign $event eventname time latency max
|
||||
assert {$eventname eq "command"}
|
||||
assert {$max >= 450 & $max <= 650}
|
||||
assert {$time == $last_time}
|
||||
break
|
||||
}
|
||||
}
|
||||
|
||||
test {LATENCY HISTORY / RESET with wrong event name is fine} {
|
||||
assert {[llength [r latency history blabla]] == 0}
|
||||
assert {[r latency reset blabla] == 0}
|
||||
}
|
||||
|
||||
test {LATENCY DOCTOR produces some output} {
|
||||
assert {[string length [r latency doctor]] > 0}
|
||||
}
|
||||
|
||||
test {LATENCY RESET is able to reset events} {
|
||||
assert {[r latency reset] > 0}
|
||||
assert {[r latency latest] eq {}}
|
||||
}
|
||||
}
|
Loading…
x
Reference in New Issue
Block a user