From ead15cb5b1210e50f3235c2e7ccfcf020b5aa75d Mon Sep 17 00:00:00 2001 From: spaced4ndy <8711996+spaced4ndy@users.noreply.github.com> Date: Thu, 9 Jul 2026 13:08:11 +0400 Subject: [PATCH] test suite --- tests/ChatTests/Groups.hs | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs index 3517f0fcc3..5748a6e016 100644 --- a/tests/ChatTests/Groups.hs +++ b/tests/ChatTests/Groups.hs @@ -332,14 +332,15 @@ chatGroupTests = do it "should compute sendAsGroup in CLI forward" testForwardCLISendAsGroup it "should update member message in channel" testChannelMemberMessageUpdate it "should delete member message in channel" testChannelMemberMessageDelete - it "should sign member message and reuse signature on edit" testChannelMemberMessageSign - it "should reject unsigned update of a signed item" testChannelMemberUpdateEnforcement - it "should sign as-channel post and keep it displayed as the channel" testChannelAsGroupSign - it "should reject a non-owner posting as the channel" testChannelAsGroupSpoof - it "should sign self-delete of a signed item" testChannelMemberSelfDeleteSign - it "should reject unsigned delete of a signed item" testChannelMemberDeleteEnforcement - it "should always sign moderation delete" testChannelModerationDeleteSign - it "should verify signed file digest" testChannelSignedFile + describe "channel message signing" $ do + it "should sign member message and reuse signature on edit" testChannelMemberMessageSign + it "should reject unsigned update of a signed item" testChannelMemberUpdateEnforcement + it "should sign as-channel post and keep it displayed as the channel" testChannelAsGroupSign + it "should reject a non-owner posting as the channel" testChannelAsGroupSpoof + it "should sign self-delete of a signed item" testChannelMemberSelfDeleteSign + it "should reject unsigned delete of a signed item" testChannelMemberDeleteEnforcement + it "should always sign moderation delete" testChannelModerationDeleteSign + it "should verify signed file digest" testChannelSignedFile testGroupCheckMessages :: HasCallStack => TestParams -> IO () testGroupCheckMessages =