A lot of progress on the propagator

julia/test/laguerre-conway.jl

@@ -1,6 +1,8 @@
 @testset "Laguerre-Conway" begin
+
+  # 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), 0.1, 0.1, 0., 0., 1. ], μs["Earth"])
+    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.
@@ -11,5 +13,15 @@
       @test i ≈ T
       @test orbit ≈ start
     end
+    for _ in 1:5
+      i = 0.
+      while i > -T
+        orbit = laguerre_conway(orbit, μs["Earth"], -1.)
+        i -= 1
+      end
+      @test i ≈ -T
+      @test orbit ≈ start
+    end
   end
+
 end