Testing DSL: add logs for babbage era txs in Runtime interpreter

input-output-hk · Mar 10, 2024 · 5d5d3fa · 5d5d3fa
1 parent 3ee6895
commit 5d5d3fa
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs b/marlowe-cli/cli-test/Language/Marlowe/CLI/Test/Runtime/Interpret.hs
@@ -534,6 +534,11 @@ interpret ro@RuntimeCreateContract{..} = do
         res <- liftIO $ flip runMarloweT connector do
           Marlowe.Class.submitAndWait BabbageEraOnwardsBabbage tx
         logStoreLabeledMsg ro $ "Submitted" <> show contractId
+
+        case C.cardanoEra @era of
+          C.BabbageEra -> logTxBody ("Submitted tx" :: String) "" txBody id
+          _ -> pure ()
+
         case res of
           Right _ -> do
             logStoreLabeledMsg ro $ "Contract created: " <> show tx
@@ -669,6 +674,10 @@ interpret ro@RuntimeApplyInputs{..} = do
           Marlowe.Class.submitAndWait BabbageEraOnwardsBabbage tx
         logStoreLabeledMsg ro "Submitted and confirmed."
 
+        case C.cardanoEra @era of
+          C.BabbageEra -> logTxBody ("Submitted tx" :: String) "" txBody id
+          _ -> pure ()
+
         case res of
           Right bl -> do
             logStoreLabeledMsg ro $ "Inputs applied: " <> show bl