Added tests to check behavior when storing repeated elements

source/Sagan-Core-Tests/RepositoryBasedTest.class.st

@@ -310,6 +310,38 @@ RepositoryBasedTest >> testStore [
 		else: [ self fail ]
 ]
 
+{ #category : 'tests - conflict checking' }
+RepositoryBasedTest >> testStoreIdentical [
+
+	| found instance |
+
+	self setUpRepositoryWithNoConflictChecking.
+	instance := self silvesterStallone.
+	self extraterrestrials store: instance.
+	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' ] ] )
+]
+
+{ #category : 'tests - conflict checking' }
+RepositoryBasedTest >> testStoreRepeated [
+
+	| found |
+
+	self setUpRepositoryWithNoConflictChecking.
+
+	self extraterrestrials store: self silvesterStallone.
+	self extraterrestrials store: self silvesterStallone.
+
+	found := self extraterrestrials findAll.
+	self assert: found size equals: 2.
+	self assert: ( found allSatisfy: [ :extraterrestrial |
+			  extraterrestrial firstName = 'Silvester' and: [ extraterrestrial lastName = 'Stallone' ] ] )
+]
+
 { #category : 'tests - conflict checking' }
 RepositoryBasedTest >> testStoreWithConflict [
 

source/Sagan-GemStone/GemStoneRepository.class.st

@@ -66,7 +66,7 @@ GemStoneRepository >> findAllMatching: aCriteriaOrBlock sortedBy: aSortFunction
 GemStoneRepository >> initializeCheckingConflictsAccordingTo: aConflictCheckingStrategy [
 
 	conflictCheckingStrategy := aConflictCheckingStrategy.
-	contents := Bag new
+	contents := Set new
 ]
 
 { #category : 'private - accessing' }