fix tests

tests/ChatTests/Direct.hs

@@ -371,6 +371,7 @@ testDeleteUnusedContactSilent =
       cath <### ["alice (Alice)", "bob (Bob)"]
       cath `hasContactProfiles` ["cath", "alice", "bob"]
       -- bob deletes cath, cath's bob contact is deleted silently
+      threadDelay 50000
       bob ##> "/d cath"
       bob <## "cath: contact is deleted"
       bob ##> "/contacts"

tests/ChatTests/Groups.hs

@@ -608,6 +608,7 @@ testGroupDelete =
   testChatCfg3 cfg aliceProfile bobProfile cathProfile $
     \alice bob cath -> do
       createGroup3 "team" alice bob cath
+      threadDelay 50000
       alice ##> "/d #team"
       concurrentlyN_
         [ alice <## "#team: you deleted the group",
@@ -2632,6 +2633,8 @@ testPlanGroupLinkLeaveRejoin =
       bob <## "group link: known group #team"
       bob <## "use #team <message> to send messages"
 
+      threadDelay 50000
+
       bob ##> "/leave #team"
       concurrentlyN_
         [ do

tests/ChatTests/Profiles.hs

@@ -179,10 +179,12 @@ testMultiWordProfileNames =
       alice <# "#'Our Team' 'Bob James'> hi"
       cath <# "#'Our Team' 'Bob James'> hi"
       alice `send` "@'Cath Johnson' hello"
-      alice <## "member #'Our Team' 'Cath Johnson' does not have direct connection, creating"
-      alice <## "contact for member #'Our Team' 'Cath Johnson' is created"
-      alice <## "sent invitation to connect directly to member #'Our Team' 'Cath Johnson'"
-      alice <# "@'Cath Johnson' hello"
+      alice
+        <### [ "member #'Our Team' 'Cath Johnson' does not have direct connection, creating",
+               "contact for member #'Our Team' 'Cath Johnson' is created",
+               "sent invitation to connect directly to member #'Our Team' 'Cath Johnson'",
+               WithTime "@'Cath Johnson' hello"
+             ]
       cath <## "#'Our Team' 'Alice Jones' is creating direct contact 'Alice Jones' with you"
       cath <# "'Alice Jones'> hello"
       cath <## "'Alice Jones': contact is connected"
@@ -642,6 +644,7 @@ testPlanAddressOwn tmp =
              "alice_2 (Alice): contact is connected"
            ]
 
+    threadDelay 50000
     alice @@@ [("@alice_1", lastChatFeature), ("@alice_2", lastChatFeature)]
     alice `send` "@alice_2 hi"
     alice