Added total weight

Author: noha

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

@@ -271,6 +271,7 @@ SoilTest >> testMetricsWithRecordCache [
 	self assert: metrics metaRecordCacheMaximumSize equals: 1000.
 	self assert: metrics metaRecordCacheSize equals: 3.
 	self assert: metrics objectRecordCacheSize equals: 1.
+	self assert: metrics objectRecordCacheTotalWeight equals: 1.
 
 
 ]

src/Soil-Core/SoilMetrics.class.st

@@ -82,6 +82,15 @@ SoilMetrics >> metaRecordCacheSize [
 		ifFalse: [ 0 ]
 ]
 
+{ #category : #metrics }
+SoilMetrics >> metaRecordCacheTotalWeight [
+	| metaSegment |
+	metaSegment := soil objectRepository metaSegment.
+	^ (metaSegment isKindOf: SoilCachedObjectSegment)
+		ifTrue: [ metaSegment cache totalWeight ]
+		ifFalse: [ 0 ]
+]
+
 { #category : #metrics }
 SoilMetrics >> metaRecordsRead [
 	^ metaRecordsRead
@@ -135,6 +144,14 @@ SoilMetrics >> objectRecordCacheSize [
 
 ]
 
+{ #category : #metrics }
+SoilMetrics >> objectRecordCacheTotalWeight [
+	^ self cachedSegments 
+		ifNotEmpty: [:segments | (segments collect: [ :each | each cache totalWeight ]) average ]
+		ifEmpty: 0
+	
+]
+
 { #category : #metrics }
 SoilMetrics >> objectRecordsRead [
 	^ objectRecordsRead