X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/fdfb02e7ff6e25f94dda2e649c18fa4addac4cc4..c22b2ec863386476c52e7442aa497151a8986af1:/tests/support/util.tcl

diff --git a/tests/support/util.tcl b/tests/support/util.tcl
index 09a5804c..36bc90d9 100644
--- 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
+}