@testset "Laguerre-Conway" begin using Thesis: laguerre_conway # Test that the propagator produces good periodic orbits (forwards and backwards) for T in rand(3600*1.5:3600*4, (5)) start = oe_to_xyz([ (μs["Earth"]*(T/(2π))^2)^(1/3), rand(0.01:0.01:0.5), rand(0.01:0.01:0.45π), 0., 0., 1. ], μs["Earth"]) orbit = start for _ in 1:5 i = 0. while i < T orbit = laguerre_conway(orbit, μs["Earth"], 1.) i += 1 end @test i ≈ T @test norm(orbit - start) < 1e-2 end for _ in 1:5 i = 0. while i > -T orbit = laguerre_conway(orbit, μs["Earth"], -1.) i -= 1 end @test i ≈ -T @test norm(orbit - start) < 1e-2 end end end