update tests

Author: drsk

concordium-consensus/tests/consensus/ConcordiumTests/KonsensusV1/Consensus/Blocks.hs

@@ -38,6 +38,7 @@ import qualified Concordium.Types.TransactionOutcomes as TransactionOutcomes
 import Concordium.Types.Transactions
 import qualified Concordium.Types.Transactions as Transactions
 
+import qualified Concordium.Genesis.Data.P10 as P10
 import qualified Concordium.Genesis.Data.P6 as P6
 import qualified Concordium.Genesis.Data.P7 as P7
 import qualified Concordium.Genesis.Data.P8 as P8
@@ -128,6 +129,7 @@ genesisLEN sProtocolVersion = case sProtocolVersion of
     SP7 -> genesisLeadershipElectionNonce $ P7.genesisInitialState $ unGDP7 $ genesisData sProtocolVersion
     SP8 -> genesisLeadershipElectionNonce $ P8.genesisInitialState $ unGDP8 $ genesisData sProtocolVersion
     SP9 -> genesisLeadershipElectionNonce $ P9.genesisInitialState $ unGDP9 $ genesisData sProtocolVersion
+    SP10 -> genesisLeadershipElectionNonce $ P10.genesisInitialState $ unGDP10 $ genesisData sProtocolVersion
 
 -- | Full bakers at genesis
 genesisFullBakers :: forall pv. (IsConsensusV1 pv, IsProtocolVersion pv) => SProtocolVersion pv -> FullBakers

concordium-consensus/tests/consensus/ConcordiumTests/KonsensusV1/TransactionProcessingTest.hs

@@ -46,6 +46,7 @@ import qualified Concordium.Crypto.VRF as VRF
 import Concordium.Genesis.Data hiding (GenesisConfiguration)
 import qualified Concordium.Genesis.Data.Base as Base
 import Concordium.Genesis.Data.BaseV1
+import Concordium.Genesis.Data.P10
 import Concordium.Genesis.Data.P6
 import Concordium.Genesis.Data.P7
 import Concordium.Genesis.Data.P8
@@ -278,6 +279,12 @@ makeTestingGenesisData idps =
                         { genesisCore = coreGenesisParams,
                           genesisInitialState = Base.GenesisState{..}
                         }
+            SP10 ->
+                GDP10
+                    GDP10Initial
+                        { genesisCore = coreGenesisParams,
+                          genesisInitialState = Base.GenesisState{..}
+                        }
 
 -- | Utility function for parrsing identity providers.
 readIps :: BSL.ByteString -> Maybe IdentityProviders