fixed a bug in rdbLoadObject abount specially encoded objects

[redis.git] / tests / support / util.tcl

diff --git a/tests/support/util.tcl b/tests/support/util.tcl
index 09a5804c17ea91ca32fbc8c38867987dbd3ea387..36bc90d98b42e04be6b0371f8886a8e4c91fbf0e 100644 (file)
--- a/tests/support/util.tcl
+++ b/tests/support/util.tcl
@@ -188,3 +188,11 @@ proc createComplexDataset {r ops} {
         }
     }
 }
+
+proc formatCommand {args} {
+    set cmd "*[llength $args]\r\n"
+    foreach a $args {
+        append cmd "$[string length $a]\r\n$a\r\n"
+    }
+    set _ $cmd
+}