fixed tests for BTree. Fixed skiplist headerSize

ApptiveGrid · Feb 16, 2024 · 37d88e1 · 37d88e1
1 parent 9f13053
commit 37d88e1
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/src/Soil-Core/SoilBasicBTree.class.st b/src/Soil-Core/SoilBasicBTree.class.st
@@ -22,6 +22,11 @@ SoilBasicBTree >> flush [
 	self store flush
 ]
 
+{ #category : #testing }
+SoilBasicBTree >> hasHeaderPage [
+	^ store hasHeaderPage 
+]
+
 { #category : #initialization }
 SoilBasicBTree >> initializeFilesystem [ 
 	self store initializeFilesystem

diff --git a/src/Soil-Core/SoilSkipListHeaderPage.class.st b/src/Soil-Core/SoilSkipListHeaderPage.class.st
@@ -17,12 +17,19 @@ SoilSkipListHeaderPage class >> pageCode [
 { #category : #utilities }
 SoilSkipListHeaderPage >> headerSize [
 	^ super headerSize 
-		+ 10 "keySize, valueSize, maxLevel, lastPageIndex" 
+		+ 14 "keySize(2), valueSize(2), maxLevel(2), lastPageIndex(4), lastFreePageIndex(4)" 
 		+ 1 "level" 
 		+ (self level * self rightSize)
 		+ 2 "items size"
 ]
 
+{ #category : #initialization }
+SoilSkipListHeaderPage >> initialize [ 
+	super initialize.
+	lastPageIndex := 1.
+	lastFreePageIndex := 0
+]
+
 { #category : #accessing }
 SoilSkipListHeaderPage >> keySize: anInteger [
 	"as long as no items have been added the key size can be changed"