From 72ea5dc5fa3631f9a0fcc433fab76bfd943f606a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= Date: Wed, 5 Mar 2025 11:29:19 +0100 Subject: [PATCH] Adapt cardano-testnet-test accordingly --- .../Cardano/Testnet/Test/Gov/NoConfidence.hs | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Gov/NoConfidence.hs b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Gov/NoConfidence.hs index af314dcb898..5a893204efa 100644 --- a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Gov/NoConfidence.hs +++ b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Gov/NoConfidence.hs @@ -69,7 +69,7 @@ hprop_gov_no_confidence = integrationWorkspace "no-confidence" $ \tempAbsBasePat era = toCardanoEra sbe cEra = AnyCardanoEra era fastTestnetOptions = def { cardanoNodeEra = asbe } - shelleyOptions = def { genesisEpochLength = 200 } + genesisOptions = def { genesisEpochLength = 200 } execConfigOffline <- H.mkExecConfigOffline tempBaseAbsPath @@ -104,14 +104,7 @@ hprop_gov_no_confidence = integrationWorkspace "no-confidence" $ \tempAbsBasePat committeeThreshold = unsafeBoundedRational 0.5 committee = L.Committee (Map.fromList [(comKeyCred1, EpochNo 100)]) committeeThreshold - alonzoGenesis <- getDefaultAlonzoGenesis sbe - shelleyGenesis' <- - getDefaultShelleyGenesis - asbe - (cardanoMaxSupply fastTestnetOptions) - shelleyOptions - let conwayGenesisWithCommittee = - defaultConwayGenesis { L.cgCommittee = committee } + let conwayGenesisWithCommittee = defaultConwayGenesis { L.cgCommittee = committee } TestnetRuntime { testnetMagic @@ -120,7 +113,10 @@ hprop_gov_no_confidence = integrationWorkspace "no-confidence" $ \tempAbsBasePat , configurationFile } <- cardanoTestnet fastTestnetOptions - conf UserNodeConfigNotSubmitted (shelleyGenesis', DefaultedOrigin) + genesisOptions + conf + NoUserProvidedData NoUserProvidedData NoUserProvidedData + (UserProvidedData conwayGenesisWithCommittee) poolNode1 <- H.headM testnetNodes poolSprocket1 <- H.noteShow $ nodeSprocket poolNode1 @@ -267,4 +263,3 @@ committeeIsPresent committeeExists (AnyNewEpochState sbe newEpochState, _, _) = else Nothing ) sbe -