From b3660be8f5fbf495b960407ff22d83f824161b74 Mon Sep 17 00:00:00 2001
From: WuYunlong <xzsyeb@126.com>
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
+    }
 }