Changed in memory to use sets so that behavior is compatible with RDBMS

ba-st · Jan 5, 2024 · 56ae176 · 56ae176
1 parent 630b9f0
commit 56ae176
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/source/Sagan-Core-Tests/RepositoryBasedTest.class.st b/source/Sagan-Core-Tests/RepositoryBasedTest.class.st
@@ -321,9 +321,10 @@ RepositoryBasedTest >> testStoreIdentical [
 	self extraterrestrials store: instance.
 
 	found := self extraterrestrials findAll.
-	self assert: found size equals: 2.
-	self assert: ( found allSatisfy: [ :extraterrestrial |
-			  extraterrestrial firstName = 'Silvester' and: [ extraterrestrial lastName = 'Stallone' ] ] )
+	self withTheOnlyOneIn: found do: [ :extraterrestrial |
+		self assert:
+			( extraterrestrial firstName = 'Silvester' and: [ extraterrestrial lastName = 'Stallone' ] )
+		]
 ]
 
 { #category : 'tests - conflict checking' }

diff --git a/source/Sagan-Core/InMemoryRepository.class.st b/source/Sagan-Core/InMemoryRepository.class.st
@@ -66,7 +66,7 @@ InMemoryRepository >> findAllMatching: aCriteriaOrBlock sortedBy: aSortFunction
 InMemoryRepository >> initializeCheckingConflictsAccordingTo: aConflictCheckingStrategy [
 
 	conflictCheckingStrategy := aConflictCheckingStrategy.
-	contents := OrderedCollection new
+	contents := Set new
 ]
 
 { #category : 'private - accessing' }