Adapt cardano-testnet-test accordingly

IntersectMBO · Mar 11, 2025 · 72ea5dc · 72ea5dc
1 parent 02f1563
commit 72ea5dc
Showing 1 changed file with 6 additions and 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
@@ -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
-