Fix UtxowSpec by increasing the budget in the redeemer

teodanciu · teodanciu · commit 4d55398a7716 · 2025-04-08T16:34:31.000+01:00
diff --git a/eras/alonzo/impl/testlib/Test/Cardano/Ledger/Alonzo/Imp/UtxowSpec/Invalid.hs b/eras/alonzo/impl/testlib/Test/Cardano/Ledger/Alonzo/Imp/UtxowSpec/Invalid.hs
@@ -271,7 +271,7 @@ spec = describe "Invalid transactions" $ do
                     , mkDelegStakeTxCert cred poolId -- 1: Needs a redeemer
                     , mkDelegStakeTxCert cred poolId -- 2: Duplicate, ignored, no redeemer needed
                     ]
-                  redeemer = (Data (P.I 32), ExUnits 5000 1_000_000)
+                  redeemer = (Data (P.I 32), ExUnits 15_000 5_000_000)
                   redeemers = Map.fromList [(mkCertifyingPurpose (AsIx i), redeemer) | i <- [1 .. 2]]
                   tx =
                     mkBasicTx mkBasicTxBody

Original file line number	Diff line number	Diff line change
`@@ -271,7 +271,7 @@ spec = describe "Invalid transactions" $ do`
`271`	`271`	`, mkDelegStakeTxCert cred poolId -- 1: Needs a redeemer`
`272`	`272`	`, mkDelegStakeTxCert cred poolId -- 2: Duplicate, ignored, no redeemer needed`
`273`	`273`	`]`
`274`		`- redeemer = (Data (P.I 32), ExUnits 5000 1_000_000)`
	`274`	`+ redeemer = (Data (P.I 32), ExUnits 15_000 5_000_000)`
`275`	`275`	`redeemers = Map.fromList [(mkCertifyingPurpose (AsIx i), redeemer) \| i <- [1 .. 2]]`
`276`	`276`	`tx =`
`277`	`277`	`mkBasicTx mkBasicTxBody`