SimpleX-Chat/tests/SchemaDump.hs

{-# LANGUAGE OverloadedStrings #-}

module SchemaDump where

import ChatClient (withTmpFiles)
import Control.DeepSeq
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 `deepseq` pure ()
    void $ readCreateProcess (shell $ "sqlite3 " <> testDB <> " '.schema --indent' > " <> schema) ""
    currentSchema <- readFile schema
    savedSchema `shouldBe` currentSchema