Added PureGitFile>>#validateIncrementalHistoryContentsReconstruction …

…sanity check
feenkcom · Oct 31, 2024 · bd2af1d · bd2af1d
1 parent 0d66a05
commit bd2af1d
Showing 1 changed file with 16 additions and 1 deletion.
diff --git a/src/Iceberg-Git-CLI/PureGitFile.class.st b/src/Iceberg-Git-CLI/PureGitFile.class.st
@@ -34,7 +34,7 @@ PureGitFile >> children [
 	^ #()
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 PureGitFile >> contents [
 	^ self fileReference contents
 ]
@@ -189,3 +189,18 @@ PureGitFile >> unstage [
 	self repository operations unstage: self path.
 	self resetStatus
 ]
+
+{ #category : #private }
+PureGitFile >> validateIncrementalHistoryContentsReconstruction [
+	| commitHistory previousContents |
+	commitHistory := self logPatchReverse toArray wait.
+	previousContents := String empty.
+	commitHistory do: [ :extendedFileCommit |
+		| newContents expectedContents |
+		newContents := extendedFileCommit changesToParent applyTo: previousContents.
+		expectedContents := String streamContents: [ :out |
+			extendedFileCommit commit contents 
+				linesDo: [ :line | out nextPutAll: line; cr ] ].
+		self assert: newContents equals: expectedContents.
+		previousContents := newContents ]
+]