add test distance and azimut for named point with known values

Author: ELePors

GeoTools-Tests/AbsoluteCoordinatesTest.class.st

@@ -0,0 +1,27 @@
+"
+An AbsoluteCoordinatesTest is a test class for testing the behavior of AbsoluteCoordinates
+"
+Class {
+	#name : #AbsoluteCoordinatesTest,
+	#superclass : #TestCase,
+	#category : #'GeoTools-Tests-Coordinates'
+}
+
+{ #category : #tests }
+AbsoluteCoordinatesTest >> testDistanceBetweenKnownAbsoluteCoordinates [
+
+	| pt1 pt2 dist az |
+	pt1 := AbsoluteCoordinates frBrest.
+	pt2 := AbsoluteCoordinates frStRenan.
+
+	dist := GeodesicUtilities
+		        convertGeodesicToDistanceInMeterFrom: pt1
+		        to: pt2.
+	az := GeodesicUtilities
+		      convertGeodesicToAzimuthInRadiansFrom: pt1
+		      to: pt2.
+	az := az radiansToDegrees.
+	self assert: (az - 295) abs < 5 .
+	self assert: (dist - 11500) abs < 1000 .
+
+]

GeoTools/AbsoluteCoordinates.class.st

@@ -84,6 +84,15 @@ AbsoluteCoordinates class >> frParis [
 		altitudeInMeters: 79 
 ]
 
+{ #category : #'instance creation' }
+AbsoluteCoordinates class >> frStRenan [
+
+	^ AbsoluteCoordinates 
+    latitudeInDegrees: 48.4328
+    longitudeInDegrees: -4.6219
+    altitudeInMeters: 60
+]
+
 { #category : #'instance creation' }
 AbsoluteCoordinates class >> latitudeInDegrees: aLatitudeInDegrees longitudeInDegrees: aLongitudeInDegrees [