fixup! Add MintBurn tests

Shorten comment.
IntersectMBO · Feb 8, 2023 · 5d1f9ac · 5d1f9ac
1 parent 47327d4
commit 5d1f9ac
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/marconi/test/MintBurn.hs b/marconi/test/MintBurn.hs
@@ -82,12 +82,9 @@ tests = testGroup "MintBurn"
   ]
 
 -- | This is a sanity-check test that turns a TxBodyContent with mint
--- events into a TxBody and checks if the mint events are found in the
--- result. It doesn't test an indexer.
---
--- Create a transaction that mints a value, convertit to a @Tx@
--- through `makeTransactionBody` and `signShelleyTransaction` and find
--- that the minted assets are still there.
+-- events into a TxBody through `makeTransactionBody` and checks if
+-- the mint events are found in the result. It doesn't test an
+-- indexer.
 mintsPreserved :: Property
 mintsPreserved = H.property $ do
   mintValue <- forAll genTxMintValue