use defaultCommandLineArgs make code less verbose

Author: Cmdv

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

@@ -52,7 +52,7 @@ import Cardano.Mock.ChainSync.Server
 import Cardano.Mock.Forging.Interpreter
 import Cardano.Node.Protocol.Shelley (readLeaderCredentials)
 import Cardano.Node.Types (ProtocolFilepaths (..))
-import Cardano.Prelude (ReaderT, panic, stderr, fromMaybe)
+import Cardano.Prelude (ReaderT, panic, stderr)
 import Cardano.SMASH.Server.PoolDataLayer
 import Control.Concurrent.Async (Async, async, cancel, poll)
 import Control.Concurrent.STM (atomically)

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

@@ -38,7 +38,7 @@ unitTests iom knownMigrations =
         , test "node restart boundary" BabSimple.nodeRestartBoundary
         ]
     , testGroup
-        "Command Line Arguements"
+        "Command Line Arguments"
         [ testGroup
             "MigrateConsumed - PruneTxOut"
                 [ test "flag check" MigrateConsumedPruneTxOut.commandLineArgCheck

cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Babbage/CommandLineArg/ConfigFile.hs

@@ -5,33 +5,16 @@ where
 
 import Cardano.Mock.ChainSync.Server (IOManager)
 import Data.Text (Text)
-import Test.Cardano.Db.Mock.Config (CommandLineArgs (..), babbageConfigDir, withCustomConfigAndLogs)
+import Test.Cardano.Db.Mock.Config (CommandLineArgs (..), babbageConfigDir, initCommandLineArgs, withCustomConfigAndLogs)
 import Test.Tasty.HUnit (Assertion)
 
-mkCommandLineArgs :: Bool -> CommandLineArgs
-mkCommandLineArgs hasConfigFile =
-  CommandLineArgs
-    { claHasConfigFile = hasConfigFile
-    , claEpochDisabled = True
-    , claHasCache = True
-    , claShouldUseLedger = True
-    , claSkipFix = True
-    , claOnlyFix = False
-    , claForceIndexes = False
-    , claHasMultiAssets = True
-    , claHasMetadata = True
-    , claHasPlutusExtra = True
-    , claHasOfflineData = True
-    , claTurboMode = False
-    , claFullMode = True
-    , claMigrateConsumed = True
-    , claPruneTxOut = True
-    }
+commandLineArgs :: CommandLineArgs
+commandLineArgs = initCommandLineArgs {claHasConfigFile = False}
 
 -- this test fails as incorrect configuration file given
 checkConfigFileArg :: IOManager -> [(Text, Text)] -> Assertion
 checkConfigFileArg =
-  withCustomConfigAndLogs (mkCommandLineArgs False) babbageConfigDir testLabel $ \_ _ _ -> do
+  withCustomConfigAndLogs commandLineArgs babbageConfigDir testLabel $ \_ _ _ -> do
     pure ()
   where
     testLabel = "CLAcheckConfigFileArg"

cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Babbage/CommandLineArg/EpochDisabled.hs

@@ -10,30 +10,13 @@ import qualified Cardano.Mock.Forging.Tx.Babbage as Babbage
 import Cardano.Mock.Forging.Types (UTxOIndex (..))
 import Control.Monad (void)
 import Data.Text (Text)
-import Test.Cardano.Db.Mock.Config (CommandLineArgs (..), babbageConfigDir, startDBSync, withCustomConfig)
+import Test.Cardano.Db.Mock.Config (CommandLineArgs (..), babbageConfigDir, startDBSync, withCustomConfig, initCommandLineArgs)
 import Test.Cardano.Db.Mock.UnifiedApi (forgeAndSubmitBlocks, withBabbageFindLeaderAndSubmitTx)
 import Test.Cardano.Db.Mock.Validate (assertBlockNoBackoff, assertEqQuery)
 import Test.Tasty.HUnit (Assertion)
 
 mkCommandLineArgs :: Bool -> CommandLineArgs
-mkCommandLineArgs epochDisabled =
-  CommandLineArgs
-    { claHasConfigFile = True
-    , claEpochDisabled = epochDisabled
-    , claHasCache = True
-    , claShouldUseLedger = True
-    , claSkipFix = True
-    , claOnlyFix = False
-    , claForceIndexes = False
-    , claHasMultiAssets = True
-    , claHasMetadata = True
-    , claHasPlutusExtra = True
-    , claHasOfflineData = True
-    , claTurboMode = False
-    , claFullMode = True
-    , claMigrateConsumed = True
-    , claPruneTxOut = True
-    }
+mkCommandLineArgs epochDisabled = initCommandLineArgs {claEpochDisabled = epochDisabled}
 
 -- this test fails as incorrect configuration file given
 checkEpochDisabledArg :: IOManager -> [(Text, Text)] -> Assertion

cardano-chain-gen/test/Test/Cardano/Db/Mock/Unit/Babbage/CommandLineArg/MigrateConsumedPruneTxOut.hs

@@ -22,7 +22,7 @@ import Control.Concurrent.Class.MonadSTM.Strict (atomically)
 import Control.Monad (void)
 import Data.Text (Text)
 import Ouroboros.Consensus.Block (blockPoint)
-import Test.Cardano.Db.Mock.Config (CommandLineArgs (..), TxOutParam (..), babbageConfigDir, startDBSync, withCustomConfig)
+import Test.Cardano.Db.Mock.Config (CommandLineArgs (..), TxOutParam (..), babbageConfigDir, startDBSync, withCustomConfig, initCommandLineArgs)
 import Test.Cardano.Db.Mock.Examples (mockBlock0, mockBlock1)
 import Test.Cardano.Db.Mock.UnifiedApi (
   forgeAndSubmitBlocks,
@@ -38,21 +38,8 @@ import Test.Tasty.HUnit (Assertion)
 -- defaults for
 mkCommandLineArgs :: TxOutParam -> CommandLineArgs
 mkCommandLineArgs TxOutParam {..} =
-  CommandLineArgs
-    { claHasConfigFile = True
-    , claEpochDisabled = True
-    , claHasCache = True
-    , claShouldUseLedger = True
-    , claSkipFix = True
-    , claOnlyFix = False
-    , claForceIndexes = False
-    , claHasMultiAssets = True
-    , claHasMetadata = True
-    , claHasPlutusExtra = True
-    , claHasOfflineData = True
-    , claTurboMode = False
-    , claFullMode = True
-    , claMigrateConsumed = paramMigrateConsumed
+  initCommandLineArgs
+    { claMigrateConsumed = paramMigrateConsumed
     , claPruneTxOut = paramPruneTxOut
     }