make test point even closer to origin

PaulJohnson · May 11, 2020 · e5f5e33 · e5f5e33
1 parent 83ccfe8
commit e5f5e33
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Main.hs b/test/Main.hs
@@ -222,7 +222,7 @@ prop_tmGridInverse =
          , ellipsoid = WGS84
          }
        g = mkGridTM origin mempty (1 *~ one)
-       testPoint = origin { latitude = (-0.1) *~ degree }
+       testPoint = origin { latitude = (-0.02) *~ degree }
    in fromGrid (toGrid g testPoint) `closeEnough` testPoint
 
 -- | Converting a UK grid reference to a GridPoint and back is a null operation.