From 09affb66b15d9691f6d0541d5b4e6a892edf14fe Mon Sep 17 00:00:00 2001 From: Pablo Lamela Date: Thu, 19 Sep 2024 04:44:30 +0200 Subject: [PATCH] Rename `execDetailCfgCardanoCLI` to `execDetailConfigCardanoCLI` --- .../test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs | 8 ++++---- cardano-cli/test/cardano-cli-test/Test/Cli/Hash.hs | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs b/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs index d1d4182f50..60d7b0238c 100644 --- a/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs +++ b/cardano-cli/test/cardano-cli-test-lib/Test/Cardano/CLI/Util.hs @@ -11,7 +11,7 @@ module Test.Cardano.CLI.Util , equivalence , execCardanoCLI , execDetailCardanoCLI - , execDetailCfgCardanoCLI + , execDetailConfigCardanoCLI , tryExecCardanoCLI , propertyOnce , withSnd @@ -83,12 +83,12 @@ execDetailCardanoCLI -- ^ Arguments to the CLI command -> m (IO.ExitCode, String, String) -- ^ Captured stdout -execDetailCardanoCLI params = GHC.withFrozenCallStack $ execDetailCfgCardanoCLI H.defaultExecConfig params +execDetailCardanoCLI params = GHC.withFrozenCallStack $ execDetailConfigCardanoCLI H.defaultExecConfig params -- | Execute cardano-cli via the command line, expecting it to fail, and accepting custom config. -- -- Waits for the process to finish and returns the exit code, stdout and stderr. -execDetailCfgCardanoCLI +execDetailConfigCardanoCLI :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) => ExecConfig -- ^ Configuration for the execution @@ -96,7 +96,7 @@ execDetailCfgCardanoCLI -- ^ Arguments to the CLI command -> m (IO.ExitCode, String, String) -- ^ Captured stdout -execDetailCfgCardanoCLI cfg = GHC.withFrozenCallStack $ execDetailFlex cfg "cardano-cli" "CARDANO_CLI" +execDetailConfigCardanoCLI cfg = GHC.withFrozenCallStack $ execDetailFlex cfg "cardano-cli" "CARDANO_CLI" procFlex' :: (MonadTest m, MonadCatch m, MonadIO m, HasCallStack) diff --git a/cardano-cli/test/cardano-cli-test/Test/Cli/Hash.hs b/cardano-cli/test/cardano-cli-test/Test/Cli/Hash.hs index 7e4cf55afd..f9580f9c3f 100644 --- a/cardano-cli/test/cardano-cli-test/Test/Cli/Hash.hs +++ b/cardano-cli/test/cardano-cli-test/Test/Cli/Hash.hs @@ -150,7 +150,7 @@ hprop_check_anchor_data_hash_from_ipfs_uri = ( \port -> do env <- H.evalIO getEnvironment result <- - execDetailCfgCardanoCLI + execDetailConfigCardanoCLI H.defaultExecConfig { H.execConfigEnv = Last $