From e88aab6d68e69565ebb313c52743dc0aceb24131 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Tue, 20 Aug 2024 18:06:57 -0500
Subject: [PATCH] Fix mingw build warnings.

---
 test/suite-filewatch.janet | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/suite-filewatch.janet b/test/suite-filewatch.janet
index 4981e106..ddd296a4 100644
--- a/test/suite-filewatch.janet
+++ b/test/suite-filewatch.janet
@@ -50,7 +50,9 @@
   []
   (assert (zero? (ev/count chan)) "channel check empty")
   (ev/sleep 0) # turn the event loop
-  (assert (zero? (ev/count chan)) "channel check empty"))
+  (assert (zero? (ev/count chan)) "channel check empty")
+  # Drain if not empty, help with failures after this
+  (while (pos? (ev/count chan)) (printf "extra: %p" (ev/take chan))))
 
 (defn spit-file
   [dir name]