Comments in redis-cli tests

diff --git a/tests/integration/redis-cli.tcl b/tests/integration/redis-cli.tcl
index 4f180dafbc385b47d2ca295c6b87669757c04632..a0df2ea11e8b743a5fbd4f4f52705c91032ad2ac 100644 (file)
--- a/tests/integration/redis-cli.tcl
+++ b/tests/integration/redis-cli.tcl
@@ -28,6 +28,7 @@ start_server {tags {"cli"}} {
         flush $fd
     }
 
+    # Helpers to run tests in interactive mode
     proc run_command {fd cmd} {
         write_cli $fd $cmd
         set lines [split [read_cli $fd] "\n"]
@@ -43,6 +44,7 @@ start_server {tags {"cli"}} {
         unset ::env(FAKETTY)
     }
 
+    # Helpers to run tests where stdout is not a tty
     proc run_nontty_cli {args} {
         set fd [open [format "|src/redis-cli -p %d -n 9 $args" [srv port]] "r"]
         fconfigure $fd -buffering none
@@ -56,6 +58,7 @@ start_server {tags {"cli"}} {
         test "Non-interactive non-TTY CLI: $name" $code
     }
 
+    # Helpers to run tests where stdout is a tty
     proc run_tty_cli {args} {
         set ::env(FAKETTY) 1
         set resp [run_nontty_cli {*}$args]