Use submitTx and signTx in ProposeNewConstitutionSPO

IntersectMBO · Apr 25, 2024 · f9c1d8a · f9c1d8a
1 parent f25f1e4
commit f9c1d8a
Showing 1 changed file with 4 additions and 13 deletions.
diff --git a/...t/cardano-testnet-test/Cardano/Testnet/Test/LedgerEvents/Gov/ProposeNewConstitutionSPO.hs b/...t/cardano-testnet-test/Cardano/Testnet/Test/LedgerEvents/Gov/ProposeNewConstitutionSPO.hs
@@ -31,7 +31,7 @@ import           GHC.Stack (HasCallStack)
 import           Lens.Micro
 import           System.FilePath ((</>))
 
-import           Testnet.Components.DReps (failToSubmitTx)
+import           Testnet.Components.DReps (failToSubmitTx, signTx, submitTx)
 import           Testnet.Components.Query
 import           Testnet.Components.TestWatchdog
 import qualified Testnet.Process.Cli as P
@@ -135,7 +135,6 @@ hprop_ledger_events_propose_new_constitution_spo = H.integrationWorkspace "propo
     ]
 
   txbodyFp <- H.note $ work </> "tx.body"
-  txbodySignedFp <- H.note $ work </> "tx.body.signed"
 
   txin1 <- findLargestUtxoForPaymentKey epochStateView sbe wallet0
 
@@ -147,21 +146,13 @@ hprop_ledger_events_propose_new_constitution_spo = H.integrationWorkspace "propo
     , "--out-file", txbodyFp
     ]
 
-  H.noteM_ $ H.execCli' execConfig
-    [ "conway", "transaction", "sign"
-    , "--tx-body-file", txbodyFp
-    , "--signing-key-file", paymentSKey $ paymentKeyInfoPair wallet0
-    , "--out-file", txbodySignedFp
-    ]
+  txBodySigned <- signTx execConfig cEra work "signed" (File txbodyFp) [paymentKeyInfoPair wallet0]
 
-  H.noteM_ $ H.execCli' execConfig
-    [ "conway", "transaction", "submit"
-    , "--tx-file", txbodySignedFp
-    ]
+  submitTx execConfig cEra txBodySigned
 
   txidString <- mconcat . lines <$> H.execCli' execConfig
     [ "transaction", "txid"
-    , "--tx-file", txbodySignedFp
+    , "--tx-file", unFile txBodySigned
     ]
 
   QueryTipLocalStateOutput{mEpoch} <- queryTip execConfig