caleb-brown/redict
1
0
Fork 0
mirror of https://codeberg.org/redict/redict.git synced 2025-01-22 16:18:28 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Tests: fix filename reported in run_solo tests.

Browse Source
This commit is contained in:
Yossi Gottlieb 2020-11-04 17:50:31 +02:00
parent 2faa0f19eb
commit f6546eff45
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test_helper.tcl
View File

@ -133,7 +133,8 @@ proc execute_test_file name {
# 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} {
proc execute_test_code {name filename code} {
set ::curfile $filename
eval $code
send_data_packet $::test_server_fd done "$name"
}
@ -238,7 +239,7 @@ proc run_solo {name code} {
eval $code
return
}
send_data_packet $::test_server_fd run_solo [list $name $code]
send_data_packet $::test_server_fd run_solo [list $name $::curfile $code]
}
proc cleanup {} {
@ -507,8 +508,8 @@ proc test_client_main server_port {
if {$cmd eq {run}} {
execute_test_file $data
} elseif {$cmd eq {run_code}} {
foreach {name code} $data break
execute_test_code $name $code
foreach {name filename code} $data break
execute_test_code $name $filename $code
} else {
error "Unknown test client command: $cmd"
}