From 002052f8dee82b206e69b828de6cd63ee466dfec 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"
}