From 117c741c296d48540b185a3241350fbb9e17cef1 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Sun, 2 Jul 2023 13:13:59 -0500
Subject: [PATCH] Add test for marshalling channels.

---
 test/suite-marsh.janet | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/suite-marsh.janet b/test/suite-marsh.janet
index 79196799..6e840910 100644
--- a/test/suite-marsh.janet
+++ b/test/suite-marsh.janet
@@ -138,5 +138,13 @@ neldb\0\0\0\xD8\x05printG\x01\0\xDE\xDE\xDE'\x03\0marshal_tes/\x02
 # XXX: still needed? see 72beeeea
 (gccollect)
 
+# ev/chan marshalling
+(compwhen (dyn 'ev/chan)
+  (def chan (ev/chan 10))
+  (ev/give chan chan)
+  (def newchan (unmarshal (marshal chan)))
+  (def item (ev/take newchan))
+  (assert (= item newchan) "ev/chan marshalling"))
+
 (end-suite)