mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-03-30 16:26:02 +00:00
97104988a3
* server: support server roles and operators * make server operator optional * allRoles * fix test * different server host in tests * remove ServerCfg fields used only in UI * comments * choose different server for invitation when connecting via address * fix test in ghc8107 * simplify
32 lines
1.1 KiB
Haskell
32 lines
1.1 KiB
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE GADTs #-}
|
|
{-# LANGUAGE LambdaCase #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE PatternSynonyms #-}
|
|
{-# LANGUAGE PostfixOperators #-}
|
|
{-# LANGUAGE RankNTypes #-}
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
|
{-# LANGUAGE TypeApplications #-}
|
|
|
|
module AgentTests (agentTests) where
|
|
|
|
import AgentTests.ConnectionRequestTests
|
|
import AgentTests.DoubleRatchetTests (doubleRatchetTests)
|
|
import AgentTests.FunctionalAPITests (functionalAPITests)
|
|
import AgentTests.MigrationTests (migrationTests)
|
|
import AgentTests.NotificationTests (notificationTests)
|
|
import AgentTests.SQLiteTests (storeTests)
|
|
import AgentTests.ServerChoice (serverChoiceTests)
|
|
import Simplex.Messaging.Transport (ATransport (..))
|
|
import Test.Hspec
|
|
|
|
agentTests :: ATransport -> Spec
|
|
agentTests (ATransport t) = do
|
|
describe "Connection request" connectionRequestTests
|
|
describe "Double ratchet tests" doubleRatchetTests
|
|
describe "Functional API" $ functionalAPITests (ATransport t)
|
|
describe "Notification tests" $ notificationTests (ATransport t)
|
|
describe "SQLite store" storeTests
|
|
describe "Chosen servers" serverChoiceTests
|
|
describe "Migration tests" migrationTests
|