From bb4293eb5eca47857178df36339a68f49d8759d2 Mon Sep 17 00:00:00 2001
From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com>
Date: Sun, 24 Dec 2023 20:23:09 +0400
Subject: [PATCH] fix tests

---
 tests/ChatTests/Groups.hs | 22 ++++++++++++++--------
 1 file changed, 14 insertions(+), 8 deletions(-)

diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs
index 6513f20ac..57ad05e28 100644
--- a/tests/ChatTests/Groups.hs
+++ b/tests/ChatTests/Groups.hs
@@ -2692,14 +2692,18 @@ testGroupLinkNoContact =
         [ do
             alice <## "cath (Catherine): accepting request to join group #team..."
             alice <## "#team: cath joined the group",
-          do
-            cath <## "#team: joining the group..."
-            cath <## "#team: you joined the group"
-            cath <## "#team: member bob (Bob) is connected",
+          cath
+            <### [ "#team: joining the group...",
+                   "#team: you joined the group",
+                   WithTime "#team alice> hello [>>]",
+                   WithTime "#team bob> hi there [>>]",
+                   "#team: member bob (Bob) is connected"
+                 ],
           do
             bob <## "#team: alice added cath (Catherine) to the group (connecting...)"
             bob <## "#team: new member cath is connected"
         ]
+
       cath #> "#team hey"
       alice <# "#team cath> hey"
       bob <# "#team cath> hey"
@@ -2757,10 +2761,12 @@ testGroupLinkNoContactMemberRole =
         [ do
             alice <## "cath (Catherine): accepting request to join group #team..."
             alice <## "#team: cath joined the group",
-          do
-            cath <## "#team: joining the group..."
-            cath <## "#team: you joined the group"
-            cath <## "#team: member bob (Bob) is connected",
+          cath
+            <### [ "#team: joining the group...",
+                   "#team: you joined the group",
+                   WithTime "#team bob> hey now [>>]",
+                   "#team: member bob (Bob) is connected"
+                 ],
           do
             bob <## "#team: alice added cath (Catherine) to the group (connecting...)"
             bob <## "#team: new member cath is connected"