From cae3bdf070e7cd7ec5b1212e3f7faa5f16d009ab Mon Sep 17 00:00:00 2001 From: Mateusz Galazyn Date: Thu, 9 May 2024 11:37:22 +0200 Subject: [PATCH] Try to use lower epochLength in leadership schedule test --- .../Cardano/Testnet/Test/Cli/LeadershipSchedule.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/LeadershipSchedule.hs b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/LeadershipSchedule.hs index dca22c1782a..eb46e526b7b 100644 --- a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/LeadershipSchedule.hs +++ b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/LeadershipSchedule.hs @@ -43,6 +43,7 @@ import Testnet.Process.Run (execCli, execCli', mkExecConfig) import Testnet.Property.Assert import Testnet.Property.Util (decodeEraUTxO, integrationRetryWorkspace) import Testnet.Runtime +import Testnet.Start.Types import Testnet.Types import Hedgehog (Property, (===)) @@ -63,6 +64,7 @@ hprop_leadershipSchedule = integrationRetryWorkspace 0 "leadership-schedule" $ \ sbe = shelleyBasedEra @ConwayEra -- TODO: We should only support the latest era and the upcoming era asbe = AnyShelleyBasedEra sbe cTestnetOptions = def { cardanoNodeEra = asbe } + shelleyOptions = def { shelleyEpochLength = 200 } eraString = eraToString sbe tr@TestnetRuntime @@ -70,7 +72,7 @@ hprop_leadershipSchedule = integrationRetryWorkspace 0 "leadership-schedule" $ \ , wallets=wallet0:_ , configurationFile , poolNodes - } <- cardanoTestnetDefault cTestnetOptions def conf + } <- cardanoTestnetDefault cTestnetOptions shelleyOptions conf node1sprocket <- H.headM $ poolSprockets tr execConfig <- mkExecConfig tempBaseAbsPath node1sprocket testnetMagic