More tests for removed values and two transactions

src/Soil-Core-Tests/SoilIndexedDictionaryTest.class.st

@@ -192,6 +192,44 @@ SoilIndexedDictionaryTest >> testDo [
 	self assert: counter equals: 2
 ]
 
+{ #category : #tests }
+SoilIndexedDictionaryTest >> testDoWithTransAction [
+	| tx tx1 tx2 counter |
+
+	tx := soil newTransaction.
+	tx root: dict.
+	dict at: 1 put: #bar1.
+	dict at: 2 put: #bar2.
+	tx commit.
+	"open a second transaction ..."
+	tx1 := soil newTransaction.
+	tx2 := soil newTransaction.
+
+	counter := 0.
+	tx2 root  do: [ :each |
+		self assert: (each beginsWith: 'bar').
+		counter := counter + 1].
+	self assert: counter equals: 2.
+
+	tx2 root removeKey: 1.
+
+	counter := 0.
+	tx2 root  do: [ :each |
+		self assert: (each beginsWith: 'bar').
+		counter := counter + 1].
+	self assert: counter equals: 1.
+
+	tx2 commit.
+	"in tx1 the key is not removed, do: correcty uses the restorValue"
+	counter := 0.
+	tx1 root  do: [ :each |
+		self assert: (each beginsWith: 'bar').
+		counter := counter + 1].
+	self assert: counter equals: 2
+
+
+]
+
 { #category : #tests }
 SoilIndexedDictionaryTest >> testFirst [
 	dict at: #foo2 put: #bar2.
@@ -409,6 +447,28 @@ SoilIndexedDictionaryTest >> testRemoveKeyIfAbsentWithTransaction [
 
 ]
 
+{ #category : #tests }
+SoilIndexedDictionaryTest >> testRemoveKeyWithTwoTransactions [
+
+	| tx tx2 |
+	tx := soil newTransaction.
+	tx root: dict.
+	dict at: 1 put: #one.
+	dict at: 2 put: #two.
+	tx commit.
+	"we create two transactions"
+	tx := soil newTransaction.
+	tx2 := soil newTransaction.
+	"remove the key"
+	tx2 root removeKey: 2.
+	tx2 commit.
+	"check that we can still see in the first tr"
+	self assert: (tx root at: 2) equals: #two.
+	"but removeKey: does not see it, to be fixed"
+	self flag: #TODO.
+	"tx root removeKey: 2"
+]
+
 { #category : #tests }
 SoilIndexedDictionaryTest >> testSecond [
 	dict at: #foo put: #bar.