dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-09-14 17:26:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

update simplexmq

Browse Source
This commit is contained in:
Evgeny Poberezkin
2023-09-30 11:57:22 +01:00
parent 8d6fee89db
commit d32adf6f6c
4 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/MobileTests.hs
+3 -1
View File
@@ -29,7 +29,7 @@ import Simplex.Chat.Mobile.WebRTC
import Simplex.Chat.Store
import Simplex.Chat.Store.Profiles
import Simplex.Chat.Types (AgentUserId (..), Profile (..))
import Simplex.Messaging.Agent.Store.SQLite (MigrationConfirmation (..))
import Simplex.Messaging.Agent.Store.SQLite (MigrationConfirmation (..), closeSQLiteStore)
import qualified Simplex.Messaging.Crypto as C
import Simplex.Messaging.Crypto.File (CryptoFile(..), CryptoFileArgs (..))
import qualified Simplex.Messaging.Crypto.File as CF
@@ -39,6 +39,7 @@ import System.Directory (copyFile)
import System.FilePath ((</>))
import System.IO (utf8)
import Test.Hspec
import Control.Concurrent (threadDelay)
mobileTests :: HasCallStack => SpecWith FilePath
mobileTests = do
@@ -144,6 +145,7 @@ testChatApi tmp = do
f = chatStoreFile dbPrefix
Right st <- createChatStore f "myKey" MCYesUp
Right _ <- withTransaction st $ \db -> runExceptT $ createUserRecord db (AgentUserId 1) aliceProfile {preferences = Nothing} True
closeSQLiteStore st
Right cc <- chatMigrateInit dbPrefix "myKey" "yesUp"
Left (DBMErrorNotADatabase _) <- chatMigrateInit dbPrefix "" "yesUp"
Left (DBMErrorNotADatabase _) <- chatMigrateInit dbPrefix "anotherKey" "yesUp"