gvsafronov/futriix
1
0
Fork 0
Code Issues Pull Requests 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 74372c3813
commit c36f8d4481
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. # as argument, and an associated name.
# It will run the specified code and signal it to the test server when # It will run the specified code and signal it to the test server when
# finished. # finished.
proc execute_test_code {name code} { proc execute_test_code {name filename code} {
set ::curfile $filename
eval $code eval $code
send_data_packet $::test_server_fd done "$name" send_data_packet $::test_server_fd done "$name"
} }
@ -238,7 +239,7 @@ proc run_solo {name code} {
eval $code eval $code
return 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 {} { proc cleanup {} {
@ -507,8 +508,8 @@ proc test_client_main server_port {
if {$cmd eq {run}} { if {$cmd eq {run}} {
execute_test_file $data execute_test_file $data
} elseif {$cmd eq {run_code}} { } elseif {$cmd eq {run_code}} {
foreach {name code} $data break foreach {name filename code} $data break
execute_test_code $name $code execute_test_code $name $filename $code
} else { } else {
error "Unknown test client command: $cmd" error "Unknown test client command: $cmd"
} }