From 90d9e6458255e197e90e28bb5abdb95eeb1b237c Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Sat, 12 Sep 2026 12:22:26 -0500
Subject: [PATCH] Add some more logging to see what we get on the CI machine
 for test host.

---
 test/helper.janet   | 4 ++++
 test/suite-ev.janet | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/test/helper.janet b/test/helper.janet
index 7a5ce156..b64b24c7 100644
--- a/test/helper.janet
+++ b/test/helper.janet
@@ -12,6 +12,10 @@
 
 (var is-verbose (os/getenv "VERBOSE"))
 
+(defn verbose-print
+  [& x]
+  (if is-verbose (eprint ;x)))
+
 (defn- assert-no-tail
   "Override's the default assert with some nice error handling."
   [x &opt e]
diff --git a/test/suite-ev.janet b/test/suite-ev.janet
index 0644fec2..c1b53fdd 100644
--- a/test/suite-ev.janet
+++ b/test/suite-ev.janet
@@ -36,6 +36,9 @@
 (def test-port (os/getenv "JANET_TEST_PORT" "8761"))
 (def test-host (decide-test-host test-port))
 
+(verbose-print "test-host: " test-host)
+(verbose-print "test-port: " test-port)
+
 # Subprocess
 # 5e1a8c86f
 (def janet (dyn *executable*))