comment delays

tests/ChatTests/Direct.hs

@@ -371,7 +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
+      -- threadDelay 50000
       bob ##> "/d cath"
       bob <## "cath: contact is deleted"
       bob ##> "/contacts"

tests/ChatTests/Groups.hs

@@ -608,7 +608,7 @@ testGroupDelete =
   testChatCfg3 cfg aliceProfile bobProfile cathProfile $
     \alice bob cath -> do
       createGroup3 "team" alice bob cath
-      threadDelay 50000
+      -- threadDelay 50000
       alice ##> "/d #team"
       concurrentlyN_
         [ alice <## "#team: you deleted the group",
@@ -625,7 +625,7 @@ testGroupDelete =
       bob <## "#team: you deleted the group"
       cath ##> "#team hi"
       cath <## "you are no longer a member of the group"
-      threadDelay 50000
+      -- threadDelay 50000
       cath ##> "/d #team"
       cath <## "#team: you deleted the group"
       alice <##> bob
@@ -742,7 +742,7 @@ testGroupReAddInvitedChangeRole =
       concurrently_
         (alice <## "#team: bob joined the group")
         (bob <## "#team: you joined the group")
-      threadDelay 50000
+      -- threadDelay 50000
       bob ##> "/d #team"
       concurrentlyN_
         [ bob <## "#team: you deleted the group",
@@ -2634,7 +2634,7 @@ testPlanGroupLinkLeaveRejoin =
       bob <## "group link: known group #team"
       bob <## "use #team <message> to send messages"
 
-      threadDelay 50000
+      -- threadDelay 50000
 
       bob ##> "/leave #team"
       concurrentlyN_

tests/ChatTests/Profiles.hs

@@ -644,7 +644,7 @@ testPlanAddressOwn tmp =
              "alice_2 (Alice): contact is connected"
            ]
 
-    threadDelay 50000
+    -- threadDelay 50000
     alice @@@ [("@alice_1", lastChatFeature), ("@alice_2", lastChatFeature)]
     alice `send` "@alice_2 hi"
     alice