From 34a2478c557b83fde18ccecbc60384459c85180f Mon Sep 17 00:00:00 2001 From: IC Rainbow Date: Thu, 4 Jan 2024 12:44:54 +0200 Subject: [PATCH] add suggested chat list tests --- tests/ChatTests/Local.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/ChatTests/Local.hs b/tests/ChatTests/Local.hs index e682a8675..4d7e25ac7 100644 --- a/tests/ChatTests/Local.hs +++ b/tests/ChatTests/Local.hs @@ -99,8 +99,10 @@ testChatPagination tmp = withNewTestChat tmp "alice" aliceProfile $ \alice -> do alice #$> ("/_get chat -1 count=1", chat, [(1, "who's there?")]) alice #$> ("/_get chat -1 after=2 count=10", chat, [(1, "knock-knock"), (1, "who's there?")]) alice #$> ("/_get chat -1 after=2 count=2", chat, [(1, "knock-knock"), (1, "who's there?")]) + alice #$> ("/_get chat -1 after=1 count=2", chat, [(1, "memento mori"), (1, "knock-knock")]) alice #$> ("/_get chat -1 before=3 count=10", chat, [(1, "hello world"), (1, "memento mori")]) alice #$> ("/_get chat -1 before=3 count=2", chat, [(1, "hello world"), (1, "memento mori")]) + alice #$> ("/_get chat -1 before=4 count=2", chat, [(1, "memento mori"), (1, "knock-knock")]) alice #$> ("/_get chat -1 count=10 search=k-k", chat, [(1, "knock-knock")])