Add support for ignoring time bounds for block time validation

src/App/Program.fs

@@ -756,7 +756,8 @@ let main argv =
                   benchmarkDurationSeconds = Some 30
                   enableTcpTuning = false
                   minBlockTimeMs = 4000
-                  maxBlockTimeMs = 5000 }
+                  maxBlockTimeMs = 5000
+                  runForMinBlockTime = false }
 
             let nCfg = MakeNetworkCfg ctx [] None
             use formation = kube.MakeEmptyFormation(nCfg)
@@ -926,7 +927,8 @@ let main argv =
                                benchmarkDurationSeconds = Some mission.BenchmarkDurationSeconds
                                enableTcpTuning = mission.EnableTcpTuning
                                minBlockTimeMs = mission.MinBlockTimeMs
-                               maxBlockTimeMs = mission.MaxBlockTimeMs }
+                               maxBlockTimeMs = mission.MaxBlockTimeMs
+                               runForMinBlockTime = false }
 
                          allMissions.[m] missionContext
 

src/FSLibrary.Tests/Tests.fs

@@ -139,7 +139,8 @@ let ctx : MissionContext =
       benchmarkDurationSeconds = None
       enableTcpTuning = false
       minBlockTimeMs = 4000
-      maxBlockTimeMs = 5000 }
+      maxBlockTimeMs = 5000
+      runForMinBlockTime = false }
 
 let netdata = __SOURCE_DIRECTORY__ + "/../../../data/public-network-data-2024-08-01.json"
 let pubkeys = __SOURCE_DIRECTORY__ + "/../../../data/tier1keys.json"

src/FSLibrary/MinBlockTimeTest.fs

@@ -84,6 +84,7 @@ let minBlockTimeTest (context: MissionContext) (baseLoadGen: LoadGen) (setupCfg:
 
     let context =
         { context with
+              runForMinBlockTime = true
               genesisTestAccountCount = Some(context.genesisTestAccountCount |> Option.defaultValue 100000)
               numPregeneratedTxs =
                   if baseLoadGen.mode = PayPregenerated then

src/FSLibrary/StellarCoreCfg.fs

@@ -226,6 +226,9 @@ type StellarCoreCfg =
         t.Add("COMMANDS", logLevelCommands) |> ignore
         t.Add("CATCHUP_COMPLETE", self.catchupMode = CatchupComplete) |> ignore
 
+        if self.network.missionContext.runForMinBlockTime then
+            t.Add("TESTING_IGNORE_LEDGER_TIME_UPGRADE_BOUNDS", true) |> ignore
+
         match self.network.missionContext.runForMaxTps with
         | Some "classic" ->
             t.Add("TESTING_MAX_CLASSIC_BYTE_ALLOWANCE", 1024 * 1024 * 9) |> ignore

src/FSLibrary/StellarMissionContext.fs

@@ -134,4 +134,5 @@ type MissionContext =
       benchmarkDurationSeconds: int option
       enableTcpTuning: bool
       minBlockTimeMs: int
-      maxBlockTimeMs: int }
+      maxBlockTimeMs: int
+      runForMinBlockTime: bool }