Fix inaccuracy in generating excessive refScript size in LedgerSpec

IntersectMBO · Jul 1, 2024 · 553ed84 · 553ed84
1 parent a2a10e8
commit 553ed84
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/LedgerSpec.hs b/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Imp/LedgerSpec.hs
@@ -30,8 +30,7 @@ spec =
     let script :: Script era
         script = fromPlutusScript plutusScript
         size = originalBytesSize script
-        (q, r) = maxRefScriptSizePerTx `quotRem` size
-        n = q + signum r
+        n = maxRefScriptSizePerTx `div` size + 1
     txIns <- replicateM n (produceRefScript script)
     let tx :: Tx era
         tx = mkBasicTx (mkBasicTxBody & referenceInputsTxBodyL .~ Set.fromList txIns)