Try to use lower epochLength in leadership schedule test

IntersectMBO · Sep 19, 2024 · cae3bdf · cae3bdf
1 parent e8d5bc2
commit cae3bdf
Showing 1 changed file with 3 additions and 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
@@ -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,14 +64,15 @@ 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
     { testnetMagic
     , wallets=wallet0:_
     , configurationFile
     , poolNodes
-    } <- cardanoTestnetDefault cTestnetOptions def conf
+    } <- cardanoTestnetDefault cTestnetOptions shelleyOptions conf
 
   node1sprocket <- H.headM $ poolSprockets tr
   execConfig <- mkExecConfig tempBaseAbsPath node1sprocket testnetMagic