From 5c4c73e2c2d7bc0face8271f6fa3c4f288e9a891 Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Fri, 17 Apr 2020 10:51:12 +0200
Subject: [PATCH] A few comments and name changes for #7103.

---
 tests/test_helper.tcl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 11a804bdc..3eee1aeb7 100644
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -106,14 +106,23 @@ set ::tlsdir "tests/tls"
 set ::client 0
 set ::numclients 16
 
-proc execute_tests name {
+# This function is called by one of the test clients when it receives
+# a "run" command from the server, with a filename as data.
+# It will run the specified test source file and signal it to the
+# test server when finished.
+proc execute_test_file name {
     set path "tests/$name.tcl"
     set ::curfile $path
     source $path
     send_data_packet $::test_server_fd done "$name"
 }
 
-proc execute_code {name code} {
+# This function is called by one of the test clients when it receives
+# a "run_code" command from the server, with a verbatim test source code
+# as argument, and an associated name.
+# It will run the specified code and signal it to the test server when
+# finished.
+proc execute_test_code {name code} {
     eval $code
     send_data_packet $::test_server_fd done "$name"
 }
@@ -467,10 +476,10 @@ proc test_client_main server_port {
         set payload [read $::test_server_fd $bytes]
         foreach {cmd data} $payload break
         if {$cmd eq {run}} {
-            execute_tests $data
+            execute_test_file $data
         } elseif {$cmd eq {run_code}} {
             foreach {name code} $data break
-            execute_code $name $code
+            execute_test_code $name $code
         } else {
             error "Unknown test client command: $cmd"
         }
-- 
GitLab