Add txInsReference support and Babbage (un)support

IntersectMBO · Apr 2, 2023 · c53d61e · c53d61e
1 parent 32f8c13
commit c53d61e
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/cardano-api/test/Test/Cardano/Api/TxBody.hs b/cardano-api/test/Test/Cardano/Api/TxBody.hs
@@ -54,7 +54,10 @@ test_roundtrip_TxBody_make_get =
         (normalizeContentOriginal $ viewBodyContent content)
         (\_ -> createAndValidateTransactionBody content)
         (<&> \(TxBody content') -> normalizeContentRoundtrip content')
-  | AnyCardanoEra era <- [minBound..]
+  | AnyCardanoEra era <-
+      [ minBound .. AnyCardanoEra AlonzoEra
+        -- TODO: temporary exception until Babbage consensus is implemented
+      ]
   ]
 
 
@@ -94,7 +97,10 @@ test_roundtrip_TxBody_make_get_make =
 
       assertEqBodies body1 body2
 
-  | AnyCardanoEra era <- [minBound..]
+  | AnyCardanoEra era <-
+      [ minBound .. AnyCardanoEra AlonzoEra
+      -- TODO: temporary exception until Babbage consensus is implemented
+      ]
   ]
 
 
@@ -277,6 +283,7 @@ viewBodyContent body =
     , txFee = txFee body
     , txIns = map viewTxIn $ txIns body
     , txInsCollateral = txInsCollateral body
+    , txInsReference = txInsReference body
     , txMetadata = txMetadata body
     , txMintValue = viewMintValue $ txMintValue body
     , txOuts = txOuts body
@@ -339,6 +346,7 @@ buildBodyContent protocolParams body =
     , txFee = txFee body
     , txIns = map buildTxIn $ txIns body
     , txInsCollateral = txInsCollateral body
+    , txInsReference = txInsReference body
     , txMetadata = txMetadata body
     , txMintValue = buildMintValue $ txMintValue body
     , txOuts = txOuts body