@testset "Inner Loop" begin

  println("Testing Inner Loop")

  using Dates

  sc = Sc("test")

  phase1 = Phase("Earth",
                 "Mars",
                 3600*24*365*1.85,
                 [1., 0.3, 0.],
                 [3., 3., 0.])

  phase2 = Phase("Mars",
                 "Jupiter",
                 3600*24*365*3.5,
                 [2., 3.7416573867739413, 0.],
                 [0.3, 1., 0.])

  result = inner_loop(DateTime(2024,3,5),
                      sc,
                      [phase1, phase2],
                      verbose=true,
                      mbh_specs=(5,50,100))

  @test result == "One path did not converge"

end