- Implement #firstPage and #lastPage on BTree

- add testLastPage same as we have for SkipList
ApptiveGrid · Nov 13, 2023 · 4dee967 · 4dee967
1 parent 5caa55b
commit 4dee967
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/src/Soil-Core-Tests/SoilBTreeTest.class.st b/src/Soil-Core-Tests/SoilBTreeTest.class.st
@@ -264,6 +264,20 @@ SoilBTreeTest >> testLast [
 	self assert: btree last equals: #[ 8 7 6 5 4 3 2 1 ]
 ]
 
+{ #category : #tests }
+SoilBTreeTest >> testLastPage [
+
+	| capacity |
+	btree maxLevel: 8.
+	capacity := btree firstPage itemCapacity * 100.
+
+	1 to: capacity - 1 do: [ :n |
+		btree at: n put: #[ 1 2 3 4 5 6 7 8 ] ].
+	btree at: capacity put: #[ 8 7 6 5 4 3 2 1 ].
+	self assert: btree pages size equals: 200.
+	self assert: btree lastPage index equals: 200
+]
+
 { #category : #tests }
 SoilBTreeTest >> testPageAddFirst [
 

diff --git a/src/Soil-Core/SoilBasicBTree.class.st b/src/Soil-Core/SoilBasicBTree.class.st
@@ -81,6 +81,11 @@ SoilBasicBTree >> first: anInteger [
 	^ col
 ]
 
+{ #category : #accessing }
+SoilBasicBTree >> firstPage [
+	^ self headerPage
+]
+
 { #category : #accessing }
 SoilBasicBTree >> flush [
 	self store flush
@@ -133,6 +138,11 @@ SoilBasicBTree >> last [
 	^ self newIterator last
 ]
 
+{ #category : #accessing }
+SoilBasicBTree >> lastPage [
+	^ self newIterator lastPage
+]
+
 { #category : #accessing }
 SoilBasicBTree >> maxLevel: anIntegeer [
 	"ignored, this allows to switch SkiList and BTree easily"