From b3660be8f5fbf495b960407ff22d83f824161b74 Mon Sep 17 00:00:00 2001 From: WuYunlong Date: Fri, 13 Jul 2018 17:51:06 +0800 Subject: [PATCH] Add test in slowlog.tcl --- tests/unit/slowlog.tcl | 10 ++++++++++ 1 file changed, 10 insertions(+) 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 + } }