From edc7c4b492e6375e503bfeb8bbb03257a22437fa Mon Sep 17 00:00:00 2001
From: dmiller <dmiller@e0a8ed71-7df4-0310-8962-fdc924857419>
Date: Tue, 10 Mar 2026 20:23:16 +0000
Subject: [PATCH] ncat-test.pl: Also test that server is still running

---
 ncat/test/ncat-test.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ncat/test/ncat-test.pl b/ncat/test/ncat-test.pl
index 80d76088c..e24480510 100755
--- a/ncat/test/ncat-test.pl
+++ b/ncat/test/ncat-test.pl
@@ -224,6 +224,10 @@ sub server_client_test {
 	my $client_args = shift;
 	my $code = shift;
 	($s_pid, $s_out, $s_in) = ncat_server(@$server_args);
+  if (waitpid($s_pid, WNOHANG) != 0) {
+    test($desc, sub {die "Server not running\n"});
+    return;
+  }
 	($c_pid, $c_out, $c_in) = ncat_client(@$client_args);
 	test($desc, $code);
 	kill_children;