Remove duplicated code + fix tests

jecisc · jecisc · commit c68e50641307 · 2023-03-14T14:54:49.000+01:00
diff --git a/src/Math-AutomaticDifferenciation/PMDualNumber.class.st b/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 }
diff --git a/src/Math-AutomaticDifferenciation/PMHyperDualNumber.class.st b/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 ] ]
 ]
 

Original file line number	Diff line number	Diff line change
`@@ -135,8 +135,7 @@ PMDualNumber >> asInteger [`
`135`	`135`	`{ #category : #comparing }`
`136`	`136`	`PMDualNumber >> closeTo: aDualNumber [`
`137`	`137`
`138`		`- ^ (value closeTo: aDualNumber value) and: [`
`139`		`- eps closeTo: aDualNumber eps ]`
	`138`	`+ ^ self closeTo: aDualNumber precision: Float defaultComparisonPrecision`
`140`	`139`	`]`
`141`	`140`
`142`	`141`	`{ #category : #comparing }`