Fix cardano-rpc-test for protocol parameters roundtrip

Author: carbolymer

cardano-rpc/proto/utxorpc/v1alpha/cardano/cardano.proto

@@ -33,14 +33,14 @@ message MultiAsset {
 }
 
 // Represents a script in Cardano.
-// TODO u5c: removed native script representation
+// TODO u5c: removed native script representation, added plutus_v4
 message Script {
   oneof script {
     bytes native = 1; // Native script.
     bytes plutus_v1 = 2; // Plutus V1 script.
     bytes plutus_v2 = 3; // Plutus V2 script.
     bytes plutus_v3 = 4; // Plutus V3 script.
-    bytes plutus_v4 = 5; // Plutus V3 script.
+    bytes plutus_v4 = 5; // Plutus V4 script.
   }
 }
 
@@ -77,6 +77,7 @@ message CostModels {
   CostModel plutus_v1 = 1;
   CostModel plutus_v2 = 2;
   CostModel plutus_v3 = 3;
+  CostModel plutus_v4 = 4;
 }
 
 message VotingThresholds {

cardano-rpc/src/Cardano/Rpc/Server/Internal/Orphans.hs

@@ -163,6 +163,7 @@ instance L.ConwayEraPParams lera => Inject (L.PParams lera) (Proto UtxoRpc.PPara
       & #costModels . #plutusV1 . #values .~ (join . maybeToList) (M.lookup L.PlutusV1 pparamsCostModels)
       & #costModels . #plutusV2 . #values .~ (join . maybeToList) (M.lookup L.PlutusV2 pparamsCostModels)
       & #costModels . #plutusV3 . #values .~ (join . maybeToList) (M.lookup L.PlutusV3 pparamsCostModels)
+      & #costModels . #plutusV4 . #values .~ (join . maybeToList) (M.lookup L.PlutusV4 pparamsCostModels)
       & #prices . #steps .~ pparams ^. L.ppPricesL . to L.prSteps . to L.unboundRational . to inject
       & #prices . #memory .~ pparams ^. L.ppPricesL . to L.prMem . to L.unboundRational . to inject
       & #maxExecutionUnitsPerTransaction .~ pparams ^. L.ppMaxTxExUnitsL . to inject

cardano-rpc/src/Cardano/Rpc/Server/Internal/UtxoRpc/Type.hs

@@ -83,9 +83,10 @@ utxoRpcPParamsToProtocolParams era pp = conwayEraOnwardsConstraints (convert era
           cm1 <- L.mkCostModel L.PlutusV1 $ pp ^. #costModels . #plutusV1 . #values
           cm2 <- L.mkCostModel L.PlutusV2 $ pp ^. #costModels . #plutusV2 . #values
           cm3 <- L.mkCostModel L.PlutusV3 $ pp ^. #costModels . #plutusV3 . #values
+          cm4 <- L.mkCostModel L.PlutusV4 $ pp ^. #costModels . #plutusV4 . #values
           -- do not add empty cost models
           let nonEmptyCostModels =
-                fromList . flip mapMaybe [cm1, cm2, cm3] $ \cm ->
+                fromList . flip mapMaybe [cm1, cm2, cm3, cm4] $ \cm ->
                   if not (null $ L.getCostModelParams cm)
                     then Just (L.getCostModelLanguage cm, cm)
                     else Nothing