Merge pull request #73 from ba-st/fix-compatibility

Restore instance creation message to ensure backward compatibility
ba-st · Jan 4, 2022 · 363f094 · 363f094
2 parents 14652cc + c919322
commit 363f094
Show file tree

Hide file tree

Showing 5 changed files with 47 additions and 5 deletions.
diff --git a/source/Sagan-Kepler-Tests/CelestialBody.class.st b/source/Sagan-Kepler-Tests/CelestialBody.class.st
@@ -16,12 +16,24 @@ CelestialBody class >> named: aName locatedAt: aGalacticCoordinates in: aPlaneta
 	^ self new initializeNamed: aName locatedAt: aGalacticCoordinates in: aPlanetarySystem
 ]
 
+{ #category : #comparing }
+CelestialBody >> = anObject [
+
+	^ PersistentObjectComparer new shouldConsider: self asEqualTo: anObject
+]
+
 { #category : #accessing }
 CelestialBody >> galacticCoordinates [
 
 	^ galacticCoordinates
 ]
 
+{ #category : #comparing }
+CelestialBody >> hash [ 
+
+	^ PersistentObjectComparer new hashFor: self
+]
+
 { #category : #initialization }
 CelestialBody >> initializeNamed: aName locatedAt: aGalacticCoordinates in: aPlanetarySystem [
 
@@ -40,3 +52,9 @@ CelestialBody >> planetarySystem [
 
 	^ planetarySystem
 ]
+
+{ #category : #accessing }
+CelestialBody >> sequentialNumber [
+
+	^ sequentialNumber
+]
diff --git a/source/Sagan-Kepler-Tests/ExtraterrestialRace.class.st b/source/Sagan-Kepler-Tests/ExtraterrestialRace.class.st
@@ -15,6 +15,18 @@ ExtraterrestialRace class >> named: aName foundIn: aListOfCelestialBodies [
 	^self new initializeNamed: aName foundIn: aListOfCelestialBodies 
 ]
 
+{ #category : #comparing }
+ExtraterrestialRace >> = anObject [
+
+	^ PersistentObjectComparer new shouldConsider: self asEqualTo: anObject
+]
+
+{ #category : #comparing }
+ExtraterrestialRace >> hash [ 
+
+	^ PersistentObjectComparer new hashFor: self
+]
+
 { #category : #initialization }
 ExtraterrestialRace >> initializeNamed: aName foundIn: aListOfCelestialBodies [ 
 
@@ -33,3 +45,9 @@ ExtraterrestialRace >> name [
 
 	^ name
 ]
+
+{ #category : #comparing }
+ExtraterrestialRace >> sequentialNumber [
+
+	^ sequentialNumber
+]
diff --git a/source/Sagan-RDBMS-Tests/CelestialBodyRepositoryTest.class.st b/source/Sagan-RDBMS-Tests/CelestialBodyRepositoryTest.class.st
@@ -46,8 +46,8 @@ CelestialBodyRepositoryTest >> testFilterByCoordinateX [
 			self
 				assert: found name equals: 'Alderaan';
 				assert: found planetarySystem equals: 'Kuat Sector';
-				assert: found galacticCoordinates x equals: 70;
-				assert: found galacticCoordinates y equals: 35;
+				assert: found galacticCoordinates x closeTo: 70;
+				assert: found galacticCoordinates y closeTo: 35;
 				assert: found galacticCoordinates z equals: 0
 			]
 ]
@@ -67,8 +67,8 @@ CelestialBodyRepositoryTest >> testFilterByCoordinateY [
 			self
 				assert: found name equals: 'Tatooine';
 				assert: found planetarySystem equals: 'Arkanis Sector';
-				assert: found galacticCoordinates x equals: 296;
-				assert: found galacticCoordinates y equals: -248;
+				assert: found galacticCoordinates x closeTo: 296;
+				assert: found galacticCoordinates y closeTo: -248;
 				assert: found galacticCoordinates z equals: 0
 			]
 ]

diff --git a/source/Sagan-RDBMS-Tests/RepositoryProviderSystemBasedTest.class.st b/source/Sagan-RDBMS-Tests/RepositoryProviderSystemBasedTest.class.st
@@ -23,7 +23,7 @@ RepositoryProviderSystemBasedTest >> repositoriesContainerName [
 { #category : #running }
 RepositoryProviderSystemBasedTest >> repositoryProvider [
 
-	^ RDBMSRepositoryProvider usingSingleSessionWith: SingleSessionRDMBSRepositoryTest login
+	^ RDBMSRepositoryProvider using: SingleSessionRDMBSRepositoryTest login
 ]
 
 { #category : #running }

diff --git a/source/Sagan-RDBMS/RDBMSRepositoryProvider.class.st b/source/Sagan-RDBMS/RDBMSRepositoryProvider.class.st
@@ -16,6 +16,12 @@ RDBMSRepositoryProvider class >> obtainingSessionFrom: aSessionProvider [
 	^ self new initializeObtainingSessionFrom: aSessionProvider
 ]
 
+{ #category : #'instance creation' }
+RDBMSRepositoryProvider class >> using: aLogin [
+
+	^ self usingSessionPoolWith: aLogin configuredBy: [ :options |  ]
+]
+
 { #category : #'instance creation' }
 RDBMSRepositoryProvider class >> usingSessionPoolWith: aLogin configuredBy: configurationAction [