Merge pull request #32 from ThalesGroup/dev-boundingbox

Add valid test on BoundingBox + unit test

Author: LabordePierre

src/GeoTools-Tests/GeoToolsBoundingBoxTest.class.st

@@ -153,6 +153,21 @@ GeoToolsBoundingBoxTest >> testCenterAbsoluteCoordinates [
 	self assert: boundingBox centerAbsoluteCoordinates longitudeInDegrees equals: 0.
 ]
 
+{ #category : #tests }
+GeoToolsBoundingBoxTest >> testIsValid [
+
+	self deny: boundingBox isValid.
+	
+	self setUpZeroBox.
+	self assert: boundingBox isValid.
+	
+	self setUpSmallBox.
+	self assert: boundingBox isValid.
+	
+	self setUpTopRightSmallBox.
+	self assert: boundingBox isValid
+]
+
 { #category : #tests }
 GeoToolsBoundingBoxTest >> testLeftLongitudeInDegrees [
 

src/GeoTools/TGeoToolsBoundingBox.trait.st

@@ -90,6 +90,15 @@ TGeoToolsBoundingBox >> centerAbsoluteCoordinates [
 		  longitudeInDegrees: longitude
 ]
 
+{ #category : #testing }
+TGeoToolsBoundingBox >> isValid [
+
+	^ (self topLeftAbsoluteCoordinates notNil and: [
+		   self topLeftAbsoluteCoordinates isValid ]) and: [
+			  self bottomRightAbsoluteCoordinates notNil and: [
+				  self bottomRightAbsoluteCoordinates isValid ] ]
+]
+
 { #category : #accessing }
 TGeoToolsBoundingBox >> leftLongitudeInDegrees [