From 0fa5ac24612b89bf5b4b5794bf615bae367cdc08 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Thu, 22 Oct 2020 18:15:14 -0400 Subject: [PATCH] add note to test --- test.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/test.hs b/test.hs index 99dcdd5..bfa9765 100644 --- a/test.hs +++ b/test.hs @@ -49,8 +49,14 @@ main = do testing "ack" $ ack sess ship 1 >> return True + -- These tests are basically just checking that a connection happens and + -- doesn't throw, I need to pull in async in order to check for more + -- correctness. Ideally: subscribe, send a message, then read the message to + -- ensure its the same as the one sent. But maybe this is already tested in + -- urbit core? + testing "subscribe" $ do - s <- subscribe sess ship "/mailbox/~/~zod/mc" Data.Conduit.Binary.sinkLbs + _ <- subscribe sess ship "/mailbox/~/~zod/mc" Data.Conduit.Binary.sinkLbs return True fakezod :: Text -> Ship