From 7f3e3fa417c1d976a7f789bf37ee389b3512c0dd Mon Sep 17 00:00:00 2001
From: Mateusz Galazyn <mateusz.galazyn@iohk.io>
Date: Thu, 9 May 2024 11:37:22 +0200
Subject: [PATCH] Try to use lower epochLength in leadership schedule test

---
 .../Cardano/Testnet/Test/Cli/Babbage/LeadershipSchedule.hs    | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/Babbage/LeadershipSchedule.hs b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/Babbage/LeadershipSchedule.hs
index 575c688ee7f..b75209ed95f 100644
--- a/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/Babbage/LeadershipSchedule.hs
+++ b/cardano-testnet/test/cardano-testnet-test/Cardano/Testnet/Test/Cli/Babbage/LeadershipSchedule.hs
@@ -62,7 +62,9 @@ hprop_leadershipSchedule = integrationRetryWorkspace 0 "babbage-leadership-sched
   let tempBaseAbsPath = makeTmpBaseAbsPath tempAbsPath
       sbe = shelleyBasedEra @BabbageEra -- TODO: We should only support the latest era and the upcoming era
       asbe = AnyShelleyBasedEra sbe
-      cTestnetOptions = def { cardanoNodeEra = asbe }
+      cTestnetOptions = def { cardanoNodeEra = asbe
+                            , cardanoEpochLength = 200
+                            }
 
   tr@TestnetRuntime
     { testnetMagic