Merge #3993

3993: [ADP-3054] test migration backup r=paolino a=paolino

A small addition to this task to prove that DB backup and DB access work well on all platforms.

ADP-3054

Co-authored-by: paolino <[email protected]>

lib/wallet/cardano-wallet.cabal

@@ -925,6 +925,7 @@ test-suite unit
     Cardano.Wallet.DB.MigrationSpec
     Cardano.Wallet.DB.Properties
     Cardano.Wallet.DB.Pure.ImplementationSpec
+    Cardano.Wallet.DB.Sqlite.Migration.NewSpec
     Cardano.Wallet.DB.Sqlite.TypesSpec
     Cardano.Wallet.DB.StateMachine
     Cardano.Wallet.DB.Store.Checkpoints.StoreSpec

lib/wallet/test/unit/Cardano/Wallet/DB/Sqlite/Migration/NewSpec.hs

@@ -0,0 +1,73 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+-- | Copyright: © 2023 IOHK License: Apache-2.0
+--
+-- Tests for new database migration sqlite instance.  A module that tests a new
+-- database migration sqlite instance.
+module Cardano.Wallet.DB.Sqlite.Migration.NewSpec
+    ( spec
+    ) where
+
+import Cardano.DB.Sqlite
+    ( DBHandle (dbBackend) )
+import Cardano.Wallet.DB.Migration
+    ( MigrationInterface (..), Version (..) )
+import Cardano.Wallet.DB.Sqlite.Migration.New
+    ( newMigrationInterface )
+import Control.Tracer
+    ( nullTracer )
+import Data.List
+    ( sort )
+import Data.Text
+    ( Text )
+import Prelude hiding
+    ( (.) )
+import System.Directory
+    ( listDirectory )
+import System.IO.Temp
+    ( withSystemTempDirectory )
+import Test.Hspec
+    ( Spec, describe, it, shouldReturn )
+import UnliftIO
+    ( MonadUnliftIO )
+
+import qualified Database.Persist.Sqlite as Sqlite
+
+{-----------------------------------------------------------------------------
+    Tests
+------------------------------------------------------------------------------}
+spec :: Spec
+spec = do
+    describe "new migrations" $ do
+        it "handles backupDatabaseFile and withDatabaseFile" $ do
+            withSystemTempDirectory "test" $ \dir -> do
+                let interface = newMigrationInterface nullTracer
+                let dbf = dir <> "/db"
+                execute interface dbf createTable
+                backupDatabaseFile interface dbf $ Version 1
+                execute interface dbf populateTable
+                backupDatabaseFile interface dbf $ Version 2
+                sort <$> listDirectory dir `shouldReturn`
+                    sort ["db", "db.v1.bak", "db.v2.bak"]
+
+execute
+    :: MonadUnliftIO m
+    => MigrationInterface m DBHandle
+    -> FilePath
+    -> Text
+    -> m ()
+execute interface dbf t =
+    withDatabaseFile interface dbf $ \handle ->
+        Sqlite.runSqlConn
+            (Sqlite.rawExecute t [])
+            (dbBackend handle)
+
+createTable :: Text
+createTable =
+    "CREATE TABLE IF NOT EXISTS test \
+    \(id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT NOT NULL)"
+
+populateTable :: Text
+populateTable =
+    "INSERT INTO test (name) VALUES ('hello')"