add integration test for execution unit prices

cardano-foundation · Sep 14, 2021 · ec6c3f1 · ec6c3f1
1 parent 5f21d53
commit ec6c3f1
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Network.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/Network.hs
@@ -1,5 +1,6 @@
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedLabels #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeApplications #-}
@@ -68,6 +69,13 @@ spec = describe "SHELLEY_NETWORK" $ do
         let knownEras = [minBound .. _mainEra ctx]
         let unknownEras = [minBound .. maxBound] \\ knownEras
 
+        let checkExecutionUnitPricesPresence
+                :: ApiEra
+                -> ((HTTP.Status, Either RequestException ApiNetworkParameters) -> IO ())
+            checkExecutionUnitPricesPresence = \case
+                ApiAlonzo -> expectField #executionUnitPrices (`shouldNotBe` Nothing)
+                _ -> expectField #executionUnitPrices (`shouldBe` Nothing)
+
         verify r $
             [ expectField #decentralizationLevel (`shouldBe` d)
             , expectField #desiredPoolNumber (`shouldBe` nOpt)
@@ -79,6 +87,7 @@ spec = describe "SHELLEY_NETWORK" $ do
             , expectField #maximumCollateralInputCount
                   (`shouldBe` maximumCollateralInputCountByEra (_mainEra ctx))
             , expectField #maximumTokenBundleSize (`shouldBe` Quantity 4000)
+            , checkExecutionUnitPricesPresence (_mainEra ctx)
             ]
             ++ map (expectEraField (`shouldNotBe` Nothing)) knownEras
             ++ map (expectEraField (`shouldBe` Nothing)) unknownEras
diff --git a/lib/core/src/Cardano/Wallet/Transaction.hs b/lib/core/src/Cardano/Wallet/Transaction.hs
@@ -127,7 +127,7 @@ data TransactionLayer k = TransactionLayer
         :: ProtocolParameters
             -- Current protocol parameters
         -> SealedTx
-            -- The constructed transaction that could contain
+            -- The constructed transaction that could contain plutus scripts
         -> Coin
         -- ^ Compute an execution costs of scripts in a given transaction.