Use non-zero costmodels in Imp tests

IntersectMBO · Dec 2, 2024 · e6b1b38 · e6b1b38
1 parent 2ee063b
commit e6b1b38
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 16 deletions.
diff --git a/eras/alonzo/impl/testlib/Test/Cardano/Ledger/Alonzo/ImpTest.hs b/eras/alonzo/impl/testlib/Test/Cardano/Ledger/Alonzo/ImpTest.hs
@@ -432,8 +432,7 @@ instance
     pure
       AlonzoGenesis
         { agCoinsPerUTxOWord = CoinPerWord (Coin 34482)
-        , -- TODO: Replace with correct cost model.
-          agCostModels = testingCostModels [PlutusV1]
+        , agCostModels = testingCostModels [PlutusV1]
         , agPrices =
             Prices
               { prMem = 577 %! 10_000

diff --git a/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/ImpTest.hs b/eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/ImpTest.hs
@@ -321,8 +321,7 @@ instance
               , ucppDRepDeposit = Coin 70_000_000
               , ucppDRepActivity = EpochInterval 100
               , ucppMinFeeRefScriptCostPerByte = 15 %! 1
-              , -- TODO: Replace with correct cost model.
-                ucppPlutusV3CostModel = testingCostModel PlutusV3
+              , ucppPlutusV3CostModel = testingCostModel PlutusV3
               }
         , cgConstitution = Constitution constitutionAnchor (SJust guardrailScriptHash)
         , cgCommittee = committee

diff --git a/libs/cardano-ledger-core/testlib/Test/Cardano/Ledger/Plutus.hs b/libs/cardano-ledger-core/testlib/Test/Cardano/Ledger/Plutus.hs
@@ -106,22 +106,13 @@ testingCostModel = \case
   PlutusV3 -> testingCostModelV3
 
 testingCostModelV1 :: HasCallStack => CostModel
-testingCostModelV1 =
-  if True
-    then zeroTestingCostModelV1
-    else mkCostModel' PlutusV1 $ snd <$> PV1.costModelParamsForTesting
+testingCostModelV1 = mkCostModel' PlutusV1 $ snd <$> PV1.costModelParamsForTesting
 
 testingCostModelV2 :: HasCallStack => CostModel
-testingCostModelV2 =
-  if True
-    then zeroTestingCostModelV2
-    else mkCostModel' PlutusV2 $ snd <$> PV2.costModelParamsForTesting
+testingCostModelV2 = mkCostModel' PlutusV2 $ snd <$> PV2.costModelParamsForTesting
 
 testingCostModelV3 :: HasCallStack => CostModel
-testingCostModelV3 =
-  if True
-    then zeroTestingCostModelV3
-    else mkCostModel' PlutusV3 $ snd <$> PV3.costModelParamsForTesting
+testingCostModelV3 = mkCostModel' PlutusV3 $ snd <$> PV3.costModelParamsForTesting
 
 testingEvaluationContext :: Language -> PV1.EvaluationContext
 testingEvaluationContext = getCostModelEvaluationContext . testingCostModel