Merge branch 'master' into lc/benchmarks

Author: noonio

docs/docs/known-issues.md

@@ -57,7 +57,7 @@ Note that, as with any adjustments of this kind, it is good practice to make a b
 
 ### Training wheels
 
-There is a hard-coded limit on the **mainnet** where only up to 100 ada can be committed into the Hydra head. This is a safety precaution and will be increased as more experience is gained in running Hydra heads on the mainnet.
+There is a hard-coded limit in hydra-node when used on **mainnet**: only up to 100 ada can be committed into the Hydra head. This is a safety precaution and will be increased as more experience is gained in running Hydra heads on the mainnet.
 
 ### Deposit periods
 

hydra-cluster/src/Hydra/Cluster/Scenarios.hs

@@ -19,6 +19,7 @@ import Cardano.Ledger.Credential (Credential (ScriptHashObj))
 import Cardano.Ledger.Plutus.Language (Language (PlutusV3))
 import CardanoClient (
   QueryPoint (QueryTip),
+  SubmitTransactionException,
   waitForUTxO,
  )
 import CardanoNode (NodeLog)
@@ -2018,8 +2019,14 @@ threeNodesWithMirrorParty tracer workDir backend hydraScriptsTxId = do
         -- XXX: one will fail but the head will still open
         aliceUTxO <- seedFromFaucet backend aliceCardanoVk 1_000_000 (contramap FromFaucet tracer)
         raceLabelled_
-          ("request-commit-tx-n1", requestCommitTx n1 aliceUTxO >>= Backend.submitTransaction backend)
-          ("request-commit-tx-n3", requestCommitTx n3 aliceUTxO >>= Backend.submitTransaction backend)
+          ( "request-commit-tx-n1"
+          , (requestCommitTx n1 aliceUTxO >>= Backend.submitTransaction backend)
+              `catch` \(_ :: SubmitTransactionException) -> pure ()
+          )
+          ( "request-commit-tx-n3"
+          , (requestCommitTx n3 aliceUTxO >>= Backend.submitTransaction backend)
+              `catch` \(_ :: SubmitTransactionException) -> pure ()
+          )
 
         -- N2 commits something
         bobUTxO <- seedFromFaucet backend bobCardanoVk 1_000_000 (contramap FromFaucet tracer)