Add ChainDB test for ledger snapshots

Author: amesgen

ouroboros-consensus/ouroboros-consensus.cabal

@@ -761,6 +761,7 @@ test-suite storage-test
     Test.Ouroboros.Storage.ChainDB.FollowerPromptness
     Test.Ouroboros.Storage.ChainDB.GcSchedule
     Test.Ouroboros.Storage.ChainDB.Iterator
+    Test.Ouroboros.Storage.ChainDB.LedgerSnapshots
     Test.Ouroboros.Storage.ChainDB.Model
     Test.Ouroboros.Storage.ChainDB.Model.Test
     Test.Ouroboros.Storage.ChainDB.Paths
@@ -796,6 +797,7 @@ test-suite storage-test
     aeson,
     base,
     bifunctors,
+    blockio:sim,
     bytestring,
     cardano-binary,
     cardano-ledger-binary:testlib,

ouroboros-consensus/test/storage-test/Test/Ouroboros/Storage/ChainDB.hs

@@ -25,6 +25,7 @@ import System.Info (os)
 import qualified Test.Ouroboros.Storage.ChainDB.FollowerPromptness as FollowerPromptness
 import qualified Test.Ouroboros.Storage.ChainDB.GcSchedule as GcSchedule
 import qualified Test.Ouroboros.Storage.ChainDB.Iterator as Iterator
+import qualified Test.Ouroboros.Storage.ChainDB.LedgerSnapshots as LedgerSnapshots
 import qualified Test.Ouroboros.Storage.ChainDB.Model.Test as Model
 import qualified Test.Ouroboros.Storage.ChainDB.Paths as Paths
 import qualified Test.Ouroboros.Storage.ChainDB.StateMachine as StateMachine
@@ -36,6 +37,7 @@ tests =
   testGroup "ChainDB" $
     [ Iterator.tests
     , FollowerPromptness.tests
+    , LedgerSnapshots.tests
     , GcSchedule.tests
     , Model.tests
     , Paths.tests