mirror of
https://github.com/simplex-chat/simplex-chat.git
synced 2026-04-01 03:05:55 +00:00
41c9742b0d
* core: auto-reply message for user contact addresses * terminal: show auto accept status and message * test
31 lines
875 B
Haskell
31 lines
875 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module SchemaDump where
|
|
|
|
import ChatClient (withTmpFiles)
|
|
import Control.Monad (void)
|
|
import Simplex.Chat.Store (createStore)
|
|
import System.Process (readCreateProcess, shell)
|
|
import Test.Hspec
|
|
|
|
testDB :: FilePath
|
|
testDB = "tests/tmp/test_chat.db"
|
|
|
|
schema :: FilePath
|
|
schema = "src/Simplex/Chat/Migrations/chat_schema.sql"
|
|
|
|
schemaDumpTest :: Spec
|
|
schemaDumpTest =
|
|
it "verify and overwrite schema dump" testVerifySchemaDump
|
|
|
|
testVerifySchemaDump :: IO ()
|
|
testVerifySchemaDump =
|
|
withTmpFiles $ do
|
|
void $ createStore testDB False
|
|
void $ readCreateProcess (shell $ "touch " <> schema) ""
|
|
savedSchema <- readFile schema
|
|
savedSchema `seq` pure ()
|
|
void $ readCreateProcess (shell $ "sqlite3 " <> testDB <> " '.schema --indent' > " <> schema) ""
|
|
currentSchema <- readFile schema
|
|
savedSchema `shouldBe` currentSchema
|