add test for southern hemisphere

2023-01-22 21:39:56 +00:00 · 2023-01-22 21:39:56 +00:00 · 4b1f2ee923
commit 4b1f2ee923
parent 33243ca123
1 changed files with 4 additions and 0 deletions
--- a/rover.fnl
+++ b/rover.fnl
@ -141,6 +141,10 @@
        (execute (rover 0 45 :e) [:f])
        (where {:x x } (< (math.abs (- x 1.4141)) 0.001)))

+(expect "At 45 degrees latitude south, one unit of drive is (sqrt 2) degrees"
+        (execute (rover 0 -45 :e) [:f])
+        (where {:x x :y -45} (< (math.abs (- x 1.4141)) 0.001)))
+
 ;; valid longitudes are -180 .. 180

 (expect "Longitude wraps from positive to  negative when travelling west"