Fix storing the wrong PID in active servers

Signed-off-by: Madelyn Olson <[email protected]>
madolson · Dec 20, 2024 · d7be9af · d7be9af
1 parent e48317e
commit d7be9af
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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"