fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-24 18:12:13 +00:00
Code Issues Projects Releases Wiki Activity

A few comments and name changes for #7103.

Browse Source
This commit is contained in:
antirez 2020-04-17 10:51:12 +02:00
parent eae2615348
commit 002052f8de
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/test_helper.tcl
View File

@ -106,14 +106,23 @@ set ::tlsdir "tests/tls"
set ::client 0 set ::client 0
set ::numclients 16 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 path "tests/$name.tcl"
set ::curfile $path set ::curfile $path
source $path source $path
send_data_packet $::test_server_fd done "$name" 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 eval $code
send_data_packet $::test_server_fd done "$name" 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] set payload [read $::test_server_fd $bytes]
foreach {cmd data} $payload break foreach {cmd data} $payload break
if {$cmd eq {run}} { if {$cmd eq {run}} {
execute_tests $data execute_test_file $data
} elseif {$cmd eq {run_code}} { } elseif {$cmd eq {run_code}} {
foreach {name code} $data break foreach {name code} $data break
execute_code $name $code execute_test_code $name $code
} else { } else {
error "Unknown test client command: $cmd" error "Unknown test client command: $cmd"
} }