add tcl test for defrag_supported

Signed-off-by: Sher Sun <sher.sun@huawei.com>
valkey-io · May 2, 2024 · 1854578 · 1854578
1 parent 2466cb4
commit 1854578
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl
@@ -30,6 +30,13 @@ start_server {tags {"other"}} {
         }
     }
 
+    test {INFO MEMORY: defrag_supported} {
+        if {[string match {*jemalloc*} [s mem_allocator]]} {
+            set info_mem [r info memory]
+            assert_equal [getInfoProperty $info_mem defrag_supported] { yes}
+        }
+    }
+
     test {SAVE - make sure there are all the types as values} {
         # Wait for a background saving in progress to terminate
         waitForBgsave r