Remove tests covered by prop_StoreWallet, writeS/loadS

cardano-foundation · Jun 2, 2023 · c63a165 · c63a165
1 parent 9a4c052
commit c63a165
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 21 deletions.
diff --git a/lib/wallet/test/unit/Cardano/Wallet/DB/LayerSpec.hs b/lib/wallet/test/unit/Cardano/Wallet/DB/LayerSpec.hs
@@ -547,13 +547,6 @@ fileModeSpec =  do
                 )
                 (reverse testTxs) -- expected after opening db
 
-        it "put and read checkpoint" $ \f -> do
-            withShelleyFileDBFresh f $ \DBFresh{bootDBLayer} -> do
-                DBLayer{atomically, putCheckpoint} <-
-                    unsafeRunExceptT $ bootDBLayer testDBLayerParams
-                atomically $ putCheckpoint testCp
-            testReopening f readCheckpoint' testCp
-
         describe "Golden rollback scenarios" $ do
             let dummyHash x = Hash $
                     x <> BS.pack (replicate (32 - (BS.length x)) 0)

diff --git a/lib/wallet/test/unit/Cardano/Wallet/DB/Properties.hs b/lib/wallet/test/unit/Cardano/Wallet/DB/Properties.hs
@@ -151,12 +151,6 @@ properties withFreshDB = describe "DB.Properties" $ do
             $ prop_createWalletTwice withFreshDB
 
     describe "put . read yields a result" $ do
-        it "Checkpoint"
-            $ property
-            $ prop_readAfterPut
-                testOnLayer
-                (\DBLayer{..} _wid -> lift . atomically . putCheckpoint)
-                (\DBLayer{..} _wid -> Identity <$> atomically readCheckpoint)
         it "Tx History"
             $ property
             $ prop_readAfterPut
@@ -173,14 +167,6 @@ properties withFreshDB = describe "DB.Properties" $ do
             $ prop_getTxAfterPutInvalidTxId testOnLayer
 
     describe "sequential puts replace values in order" $ do
-        it "Checkpoint"
-            $ checkCoverage
-            $ prop_sequentialPut
-                testOnLayer
-                (\DBLayer{..} _wid -> lift . atomically . putCheckpoint)
-                (\DBLayer{..} _-> Identity <$> atomically readCheckpoint)
-                (Identity . last)
-                . sortOn (currentTip . unShowFmt)
         it "Tx History"
             $ checkCoverage
             $ prop_sequentialPut