Remove duplicated code + fix tests

Author: jecisc

src/Math-AutomaticDifferenciation/PMDualNumber.class.st

@@ -135,8 +135,7 @@ PMDualNumber >> asInteger [
 { #category : #comparing }
 PMDualNumber >> closeTo: aDualNumber [
 
-	^ (value closeTo: aDualNumber value) and: [
-		  eps closeTo: aDualNumber eps ]
+	^ self closeTo: aDualNumber precision: Float defaultComparisonPrecision
 ]
 
 { #category : #comparing }

src/Math-AutomaticDifferenciation/PMHyperDualNumber.class.st

@@ -96,18 +96,10 @@ PMHyperDualNumber >> arcTan [
 		yourself
 ]
 
-{ #category : #comparing }
-PMHyperDualNumber >> closeTo: aHyperDualNumber [
-
-	^ (super closeTo: aHyperDualNumber) and: [
-		  (eps2 closeTo: aHyperDualNumber eps2) and: [
-			  eps1eps2 closeTo: aHyperDualNumber eps1eps2 ] ]
-]
-
 { #category : #comparing }
 PMHyperDualNumber >> closeTo: aHyperDualNumber precision: aPrecision [
 
-	^ (super closeTo: aHyperDualNumber asFloat precision: aPrecision) and: [
+	^ (super closeTo: aHyperDualNumber precision: aPrecision) and: [
 		  (eps2 closeTo: aHyperDualNumber eps2 precision: aPrecision) and: [ eps1eps2 closeTo: aHyperDualNumber eps1eps2 precision: aPrecision ] ]
 ]