Fixup failing test re migration logs

cardano-foundation · Apr 15, 2021 · 8067eca · 8067eca
1 parent ad4f164
commit 8067eca
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/core/test/unit/Cardano/Wallet/DB/SqliteSpec.hs b/lib/core/test/unit/Cardano/Wallet/DB/SqliteSpec.hs
@@ -477,6 +477,7 @@ testMigrationTxMetaFee dbName expectedLength caseByCase = do
 matchMsgManualMigration :: (DBField -> Bool) -> WalletDBLog -> Bool
 matchMsgManualMigration p = \case
     MsgDB (MsgManualMigrationNeeded field _) -> p field
+    MsgDB (MsgExpectedMigration (MsgManualMigrationNeeded field _)) -> p field
     _ -> False
 
 testMigrationCleanupCheckpoints