Add a hint about the current file for TCL debugging (#1459)

There are some tests that fail and give no useful information since they are
outside of a test context. Now we will at least get the file we are located in.

We can sort of reverse engineer where we are in the test by seeing which
tests have finished in a file.

```
[TIMEOUT]: clients state report follows.
sock6 => (SPAWNED SERVER) pid:30375 - tests/unit/info.tcl
Killing still running Valkey server 30375 - tests/unit/info.tcl
```

Signed-off-by: Madelyn Olson <madelyneolson@gmail.com>
This commit is contained in:
Madelyn Olson 2024-12-18 22:18:02 -08:00 committed by GitHub
parent 60197b30e2
commit 079f4edf2d
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194

View File

@ -314,7 +314,7 @@ proc spawn_server {config_file stdout stderr args} {
}
# Tell the test server about this new instance.
send_data_packet $::test_server_fd server-spawned $pid
send_data_packet $::test_server_fd server-spawned "$pid - $::curfile"
return $pid
}