tests: pass AStoreType to agent test as a parameter (#1479)

* tests: run agent tests with PostgreSQL SMP servers

* agent tests with postgres database

* enable tests

* fix store log tests

* fix test

src/Simplex/Messaging/Agent/Store/Postgres.hs

@@ -113,7 +113,7 @@ doesSchemaExist db schema = do
 closeDBStore :: DBStore -> IO ()
 closeDBStore DBStore {dbPool, dbPoolSize, dbClosed} =
   ifM (readTVarIO dbClosed) (putStrLn "closeDBStore: already closed") $ uninterruptibleMask_ $ do
-    replicateM_ dbPoolSize $ atomically $ readTBQueue dbPool
+    replicateM_ dbPoolSize $ atomically (readTBQueue dbPool) >>= DB.close
     atomically $ writeTVar dbClosed True
 
 reopenDBStore :: DBStore -> IO ()

src/Simplex/Messaging/Server/StoreLog.hs

@@ -40,7 +40,6 @@ import qualified Data.Attoparsec.ByteString.Char8 as A
 import qualified Data.ByteString.Char8 as B
 import Data.Functor (($>))
 import Data.List (sort, stripPrefix)
-import qualified Data.Map.Strict as M
 import Data.Maybe (mapMaybe)
 import qualified Data.Text as T
 import Data.Time.Clock (UTCTime, addUTCTime, getCurrentTime, nominalDay)