remove migration fix related code

Author: Cmdv

cardano-chain-gen/cardano-chain-gen.cabal

@@ -130,12 +130,21 @@ test-suite cardano-chain-gen
   other-modules:        Test.Cardano.Db.Mock.Config
                         Test.Cardano.Db.Mock.Examples
                         Test.Cardano.Db.Mock.Property.Property
+                        Test.Cardano.Db.Mock.UnifiedApi
+                        Test.Cardano.Db.Mock.Unit.Alonzo
+                        Test.Cardano.Db.Mock.Unit.Alonzo.Config
+                        Test.Cardano.Db.Mock.Unit.Alonzo.Simple
+                        Test.Cardano.Db.Mock.Unit.Alonzo.Tx
+                        Test.Cardano.Db.Mock.Unit.Babbage
+                        Test.Cardano.Db.Mock.Unit.Babbage.Reward
+                        Test.Cardano.Db.Mock.Unit.Babbage.Simple
+                        Test.Cardano.Db.Mock.Unit.Babbage.Tx
                         Test.Cardano.Db.Mock.Unit.Conway
                         Test.Cardano.Db.Mock.Unit.Conway.CommandLineArg.ConfigFile
                         Test.Cardano.Db.Mock.Unit.Conway.CommandLineArg.EpochDisabled
                         Test.Cardano.Db.Mock.Unit.Conway.Config.JsonbInSchema
-                        Test.Cardano.Db.Mock.Unit.Conway.Config.Parse
                         Test.Cardano.Db.Mock.Unit.Conway.Config.MigrateConsumedPruneTxOut
+                        Test.Cardano.Db.Mock.Unit.Conway.Config.Parse
                         Test.Cardano.Db.Mock.Unit.Conway.Governance
                         Test.Cardano.Db.Mock.Unit.Conway.InlineAndReference
                         Test.Cardano.Db.Mock.Unit.Conway.Other
@@ -145,7 +154,6 @@ test-suite cardano-chain-gen
                         Test.Cardano.Db.Mock.Unit.Conway.Simple
                         Test.Cardano.Db.Mock.Unit.Conway.Stake
                         Test.Cardano.Db.Mock.Unit.Conway.Tx
-                        Test.Cardano.Db.Mock.UnifiedApi
                         Test.Cardano.Db.Mock.Validate
 
   build-depends:        aeson

cardano-chain-gen/src/Cardano/Mock/Forging/Tx/Babbage.hs

@@ -462,7 +462,7 @@ mkUTxOBabbage :: AlonzoTx StandardBabbage -> [(TxIn StandardCrypto, BabbageTxOut
 mkUTxOBabbage = mkUTxOAlonzo
 
 mkUTxOCollBabbage ::
-  (BabbageEraTxBody era) =>
+  BabbageEraTxBody era =>
   AlonzoTx era ->
   [(TxIn (EraCrypto era), TxOut era)]
 mkUTxOCollBabbage tx = Map.toList $ unUTxO $ collOuts $ getField @"body" tx

cardano-chain-gen/src/Cardano/Mock/Query.hs

@@ -199,7 +199,9 @@ queryVoteCounts txHash idx = do
               `innerJoin` table @Db.Tx
             `on` (\(vote :& tx) -> vote ^. Db.VotingProcedureTxId ==. tx ^. Db.TxId)
         where_ $
-          vote ^. Db.VotingProcedureVote ==. val v
+          vote
+            ^. Db.VotingProcedureVote
+            ==. val v
             &&. tx ^. Db.TxHash ==. val txHash
             &&. vote ^. Db.VotingProcedureIndex ==. val idx
         pure countRows

cardano-chain-gen/test/Main.hs

@@ -7,6 +7,8 @@ import System.Directory (getCurrentDirectory)
 import System.Environment (lookupEnv, setEnv)
 import System.FilePath ((</>))
 import qualified Test.Cardano.Db.Mock.Property.Property as Property
+import qualified Test.Cardano.Db.Mock.Unit.Alonzo as Alonzo
+import qualified Test.Cardano.Db.Mock.Unit.Babbage as Babbage
 import qualified Test.Cardano.Db.Mock.Unit.Conway as Conway
 import Test.Tasty
 import Test.Tasty.QuickCheck (testProperty)
@@ -28,6 +30,8 @@ tests iom = do
     testGroup
       "cardano-chain-gen"
       [ Conway.unitTests iom knownMigrationsPlain
+      , Babbage.unitTests iom knownMigrationsPlain
+      , Alonzo.unitTests iom knownMigrationsPlain
       , testProperty "QSM" $ Property.prop_empty_blocks iom knownMigrationsPlain
       ]
   where

cardano-chain-gen/test/Test/Cardano/Db/Mock/Config.hs

@@ -122,8 +122,6 @@ data CommandLineArgs = CommandLineArgs
   , claEpochDisabled :: Bool
   , claHasCache :: Bool
   , claHasLedger :: Bool
-  , claSkipFix :: Bool
-  , claOnlyFix :: Bool
   , claForceIndexes :: Bool
   , claHasMultiAssets :: Bool
   , claHasMetadata :: Bool
@@ -286,8 +284,6 @@ mkSyncNodeParams staticDir mutableDir CommandLineArgs {..} = do
       , enpPGPassSource = DB.PGPassCached pgconfig
       , enpEpochDisabled = claEpochDisabled
       , enpHasCache = claHasCache
-      , enpSkipFix = claSkipFix
-      , enpOnlyFix = claOnlyFix
       , enpForceIndexes = claForceIndexes
       , enpHasInOut = True
       , enpSnEveryFollowing = 35
@@ -361,8 +357,6 @@ initCommandLineArgs =
     , claEpochDisabled = True
     , claHasCache = True
     , claHasLedger = True
-    , claSkipFix = True
-    , claOnlyFix = False
     , claForceIndexes = False
     , claHasMultiAssets = True
     , claHasMetadata = True

cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Alonzo.hs

@@ -0,0 +1,43 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+module Test.Cardano.Db.Mock.Unit.Alonzo (
+  unitTests,
+) where
+
+import Cardano.Mock.ChainSync.Server (IOManager)
+import Data.Text (Text)
+import Test.Tasty (TestTree, testGroup)
+import Test.Tasty.HUnit (Assertion, testCase)
+
+import qualified Test.Cardano.Db.Mock.Unit.Alonzo.Config as AlzConfig
+import qualified Test.Cardano.Db.Mock.Unit.Alonzo.Simple as AlzSimple
+import qualified Test.Cardano.Db.Mock.Unit.Alonzo.Tx as AlzTx
+
+{- HLINT ignore "Reduce duplication" -}
+
+unitTests :: IOManager -> [(Text, Text)] -> TestTree
+unitTests iom knownMigrations =
+  testGroup
+    "Alonzo unit tests"
+    [ testGroup
+        "config"
+        [ testCase "default insert config" AlzConfig.defaultInsertConfig
+        , testCase "insert config" AlzConfig.insertConfig
+        ]
+    , testGroup
+        "simple"
+        [ test "simple forge blocks" AlzSimple.forgeBlocks
+        , test "sync one block" AlzSimple.addSimple
+        , test "restart db-sync" AlzSimple.restartDBSync
+        , test "sync small chain" AlzSimple.addSimpleChain
+        ]
+    , testGroup
+        "blocks with txs"
+        [ test "simple tx" AlzTx.addSimpleTx
+        , test "consume utxo same block" AlzTx.consumeSameBlock
+        ]
+    ]
+  where
+    test :: String -> (IOManager -> [(Text, Text)] -> Assertion) -> TestTree
+    test str action = testCase str (action iom knownMigrations)