From ffef236dbbfd26383262fa222e869814f5608ce5 Mon Sep 17 00:00:00 2001 From: Madelyn Olson Date: Thu, 19 Dec 2024 18:14:56 -0800 Subject: [PATCH] Fix storing the wrong PID in active servers (#1464) In #1459, I missed that the data was also used to keep track of the PID files so if the testing framework crashed it would no longer be able to cleanup the extra servers. So now we properly extract the PID and store it so we can clean up PIDs. Signed-off-by: Madelyn Olson --- tests/test_helper.tcl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl index 8a4125e48d..54bb923674 100644 --- a/tests/test_helper.tcl +++ b/tests/test_helper.tcl @@ -421,7 +421,8 @@ proc read_from_test_client fd { } elseif {$status eq {server-spawning}} { set ::active_clients_task($fd) "(SPAWNING SERVER) $data" } elseif {$status eq {server-spawned}} { - lappend ::active_servers $data + set pid [string trim [lindex [split $data "-"] 0]] + lappend ::active_servers $pid set ::active_clients_task($fd) "(SPAWNED SERVER) pid:$data" } elseif {$status eq {server-killing}} { set ::active_clients_task($fd) "(KILLING SERVER) pid:$data"