diff --git a/tests/unit/slowlog.tcl b/tests/unit/slowlog.tcl index fce02498..dbd7a154 100644 --- a/tests/unit/slowlog.tcl +++ b/tests/unit/slowlog.tcl @@ -78,4 +78,14 @@ start_server {tags {"slowlog"} overrides {slowlog-log-slower-than 1000000}} { set e [lindex [r slowlog get] 0] assert_equal {lastentry_client} [lindex $e 5] } + + test {SLOWLOG - can be disabled} { + r config set slowlog-log-slower-than 1 + r slowlog reset + assert_equal [r slowlog len] 1 + r config set slowlog-log-slower-than -1 + r slowlog reset + r debug sleep 0.2 + assert_equal [r slowlog len] 0 + } }