ae9b83515c
* core: group snd status * schema, implementation * refactor direct, tests * configure, tests * item info * refactor * refactor * remove do * rename * remove receipts on events * refactor * refactor * refactor * refactor * tests * rename tests * aggregates * fix name * refactor --------- Co-authored-by: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
116 lines
6.9 KiB
Haskell
116 lines
6.9 KiB
Haskell
{-# LANGUAGE CPP #-}
|
|
|
|
module MobileTests where
|
|
|
|
import ChatTests.Utils
|
|
import Control.Monad.Except
|
|
import Simplex.Chat.Mobile
|
|
import Simplex.Chat.Store
|
|
import Simplex.Chat.Store.Profiles
|
|
import Simplex.Chat.Types (AgentUserId (..), Profile (..))
|
|
import Simplex.Messaging.Agent.Store.SQLite (MigrationConfirmation (..))
|
|
import System.FilePath ((</>))
|
|
import Test.Hspec
|
|
|
|
mobileTests :: SpecWith FilePath
|
|
mobileTests = do
|
|
describe "mobile API" $ do
|
|
it "start new chat without user" testChatApiNoUser
|
|
it "start new chat with existing user" testChatApi
|
|
|
|
noActiveUser :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
noActiveUser = "{\"resp\":{\"chatCmdError\":{\"chatError\":{\"error\":{\"errorType\":{\"noActiveUser\":{}}}}}}}"
|
|
#else
|
|
noActiveUser = "{\"resp\":{\"type\":\"chatCmdError\",\"chatError\":{\"type\":\"error\",\"errorType\":{\"type\":\"noActiveUser\"}}}}"
|
|
#endif
|
|
|
|
activeUserExists :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
activeUserExists = "{\"resp\":{\"chatCmdError\":{\"user_\":{\"userId\":1,\"agentUserId\":\"1\",\"userContactId\":1,\"localDisplayName\":\"alice\",\"profile\":{\"profileId\":1,\"displayName\":\"alice\",\"fullName\":\"Alice\",\"localAlias\":\"\"},\"fullPreferences\":{\"timedMessages\":{\"allow\":\"yes\"},\"fullDelete\":{\"allow\":\"no\"},\"reactions\":{\"allow\":\"yes\"},\"voice\":{\"allow\":\"yes\"},\"calls\":{\"allow\":\"yes\"}},\"activeUser\":true,\"showNtfs\":true,\"sendRcptsContacts\":true,\"sendRcptsSmallGroups\":true},\"chatError\":{\"error\":{\"errorType\":{\"userExists\":{\"contactName\":\"alice\"}}}}}}}"
|
|
#else
|
|
activeUserExists = "{\"resp\":{\"type\":\"chatCmdError\",\"user_\":{\"userId\":1,\"agentUserId\":\"1\",\"userContactId\":1,\"localDisplayName\":\"alice\",\"profile\":{\"profileId\":1,\"displayName\":\"alice\",\"fullName\":\"Alice\",\"localAlias\":\"\"},\"fullPreferences\":{\"timedMessages\":{\"allow\":\"yes\"},\"fullDelete\":{\"allow\":\"no\"},\"reactions\":{\"allow\":\"yes\"},\"voice\":{\"allow\":\"yes\"},\"calls\":{\"allow\":\"yes\"}},\"activeUser\":true,\"showNtfs\":true,\"sendRcptsContacts\":true,\"sendRcptsSmallGroups\":true},\"chatError\":{\"type\":\"error\",\"errorType\":{\"type\":\"userExists\",\"contactName\":\"alice\"}}}}"
|
|
#endif
|
|
|
|
activeUser :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
activeUser = "{\"resp\":{\"activeUser\":{\"user\":{\"userId\":1,\"agentUserId\":\"1\",\"userContactId\":1,\"localDisplayName\":\"alice\",\"profile\":{\"profileId\":1,\"displayName\":\"alice\",\"fullName\":\"Alice\",\"localAlias\":\"\"},\"fullPreferences\":{\"timedMessages\":{\"allow\":\"yes\"},\"fullDelete\":{\"allow\":\"no\"},\"reactions\":{\"allow\":\"yes\"},\"voice\":{\"allow\":\"yes\"},\"calls\":{\"allow\":\"yes\"}},\"activeUser\":true,\"showNtfs\":true,\"sendRcptsContacts\":true,\"sendRcptsSmallGroups\":true}}}}"
|
|
#else
|
|
activeUser = "{\"resp\":{\"type\":\"activeUser\",\"user\":{\"userId\":1,\"agentUserId\":\"1\",\"userContactId\":1,\"localDisplayName\":\"alice\",\"profile\":{\"profileId\":1,\"displayName\":\"alice\",\"fullName\":\"Alice\",\"localAlias\":\"\"},\"fullPreferences\":{\"timedMessages\":{\"allow\":\"yes\"},\"fullDelete\":{\"allow\":\"no\"},\"reactions\":{\"allow\":\"yes\"},\"voice\":{\"allow\":\"yes\"},\"calls\":{\"allow\":\"yes\"}},\"activeUser\":true,\"showNtfs\":true,\"sendRcptsContacts\":true,\"sendRcptsSmallGroups\":true}}}"
|
|
#endif
|
|
|
|
chatStarted :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
chatStarted = "{\"resp\":{\"chatStarted\":{}}}"
|
|
#else
|
|
chatStarted = "{\"resp\":{\"type\":\"chatStarted\"}}"
|
|
#endif
|
|
|
|
contactSubSummary :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
contactSubSummary = "{\"resp\":{\"contactSubSummary\":{" <> userJSON <> ",\"contactSubscriptions\":[]}}}"
|
|
#else
|
|
contactSubSummary = "{\"resp\":{\"type\":\"contactSubSummary\"," <> userJSON <> ",\"contactSubscriptions\":[]}}"
|
|
#endif
|
|
|
|
memberSubSummary :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
memberSubSummary = "{\"resp\":{\"memberSubSummary\":{" <> userJSON <> ",\"memberSubscriptions\":[]}}}"
|
|
#else
|
|
memberSubSummary = "{\"resp\":{\"type\":\"memberSubSummary\"," <> userJSON <> ",\"memberSubscriptions\":[]}}"
|
|
#endif
|
|
|
|
userContactSubSummary :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
userContactSubSummary = "{\"resp\":{\"userContactSubSummary\":{" <> userJSON <> ",\"userContactSubscriptions\":[]}}}"
|
|
#else
|
|
userContactSubSummary = "{\"resp\":{\"type\":\"userContactSubSummary\"," <> userJSON <> ",\"userContactSubscriptions\":[]}}"
|
|
#endif
|
|
|
|
pendingSubSummary :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
pendingSubSummary = "{\"resp\":{\"pendingSubSummary\":{" <> userJSON <> ",\"pendingSubscriptions\":[]}}}"
|
|
#else
|
|
pendingSubSummary = "{\"resp\":{\"type\":\"pendingSubSummary\"," <> userJSON <> ",\"pendingSubscriptions\":[]}}"
|
|
#endif
|
|
|
|
userJSON :: String
|
|
userJSON = "\"user\":{\"userId\":1,\"agentUserId\":\"1\",\"userContactId\":1,\"localDisplayName\":\"alice\",\"profile\":{\"profileId\":1,\"displayName\":\"alice\",\"fullName\":\"Alice\",\"localAlias\":\"\"},\"fullPreferences\":{\"timedMessages\":{\"allow\":\"yes\"},\"fullDelete\":{\"allow\":\"no\"},\"reactions\":{\"allow\":\"yes\"},\"voice\":{\"allow\":\"yes\"},\"calls\":{\"allow\":\"yes\"}},\"activeUser\":true,\"showNtfs\":true,\"sendRcptsContacts\":true,\"sendRcptsSmallGroups\":true}"
|
|
|
|
parsedMarkdown :: String
|
|
#if defined(darwin_HOST_OS) && defined(swiftJSON)
|
|
parsedMarkdown = "{\"formattedText\":[{\"format\":{\"bold\":{}},\"text\":\"hello\"}]}"
|
|
#else
|
|
parsedMarkdown = "{\"formattedText\":[{\"format\":{\"type\":\"bold\"},\"text\":\"hello\"}]}"
|
|
#endif
|
|
|
|
testChatApiNoUser :: FilePath -> IO ()
|
|
testChatApiNoUser tmp = do
|
|
let dbPrefix = tmp </> "1"
|
|
Right cc <- chatMigrateInit dbPrefix "" "yesUp"
|
|
Left (DBMErrorNotADatabase _) <- chatMigrateInit dbPrefix "myKey" "yesUp"
|
|
chatSendCmd cc "/u" `shouldReturn` noActiveUser
|
|
chatSendCmd cc "/_start" `shouldReturn` noActiveUser
|
|
chatSendCmd cc "/create user alice Alice" `shouldReturn` activeUser
|
|
chatSendCmd cc "/_start" `shouldReturn` chatStarted
|
|
|
|
testChatApi :: FilePath -> IO ()
|
|
testChatApi tmp = do
|
|
let dbPrefix = tmp </> "1"
|
|
f = chatStoreFile dbPrefix
|
|
Right st <- createChatStore f "myKey" MCYesUp
|
|
Right _ <- withTransaction st $ \db -> runExceptT $ createUserRecord db (AgentUserId 1) aliceProfile {preferences = Nothing} True
|
|
Right cc <- chatMigrateInit dbPrefix "myKey" "yesUp"
|
|
Left (DBMErrorNotADatabase _) <- chatMigrateInit dbPrefix "" "yesUp"
|
|
Left (DBMErrorNotADatabase _) <- chatMigrateInit dbPrefix "anotherKey" "yesUp"
|
|
chatSendCmd cc "/u" `shouldReturn` activeUser
|
|
chatSendCmd cc "/create user alice Alice" `shouldReturn` activeUserExists
|
|
chatSendCmd cc "/_start" `shouldReturn` chatStarted
|
|
chatRecvMsg cc `shouldReturn` contactSubSummary
|
|
chatRecvMsg cc `shouldReturn` userContactSubSummary
|
|
chatRecvMsg cc `shouldReturn` memberSubSummary
|
|
chatRecvMsgWait cc 10000 `shouldReturn` pendingSubSummary
|
|
chatRecvMsgWait cc 10000 `shouldReturn` ""
|
|
chatParseMarkdown "hello" `shouldBe` "{}"
|
|
chatParseMarkdown "*hello*" `shouldBe` parsedMarkdown
|