From e086719f27727ca99427af6e4838de409c87e18b Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Sun, 24 Dec 2023 20:44:30 +0400
Subject: [PATCH] core: add to tests

---
 tests/ChatTests/Groups.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs
index 57ad05e28..232c80714 100644
--- a/tests/ChatTests/Groups.hs
+++ b/tests/ChatTests/Groups.hs
@@ -4378,6 +4378,16 @@ testGroupHistoryPreferenceOff =
       r' <- chat <$> getTermLine dan
       r' `shouldNotContain` [(0, "hello")]
       r' `shouldNotContain` [(0, "hey!")]
+
+      -- message delivery works
+      alice #> "#team 1"
+      [bob, cath, dan] *<# "#team alice> 1"
+      bob #> "#team 2"
+      [alice, cath, dan] *<# "#team bob> 2"
+      cath #> "#team 3"
+      [alice, bob, dan] *<# "#team cath> 3"
+      dan #> "#team 4"
+      [alice, bob, cath] *<# "#team dan> 4"
   where
     aliceAddedDan :: HasCallStack => TestCC -> IO ()
     aliceAddedDan cc = do