trim trailing whitespace, additional commands to list contacts and groups (#149)

2024-12-17 17:20:21 +01:00 · 2021-12-10 11:45:58 +00:00
parent 2e56b3cb58
commit 1c2e49ae83
5 changed files with 53 additions and 6 deletions
@@ -132,6 +132,20 @@ testGroup =
        (alice <# "#team cath> hey")
        (bob <# "#team cath> hey")
      bob <##> cath
+      -- list groups
+      alice ##> "/gs"
+      alice <## "#team"
+      -- list group members
+      alice ##> "/ms team"
+      alice
+        <### [ "alice (Alice): owner, you, created group",
+               "bob (Bob): admin, invited, connected",
+               "cath (Catherine): admin, invited, connected"
+             ]
+      -- list contacts
+      alice ##> "/cs"
+      alice <## "bob (Bob)"
+      alice <## "cath (Catherine)"
      -- remove member
      bob ##> "/rm team cath"
      concurrentlyN_