Merge pull request #616 from ApptiveGrid/fix-halt-SoilIndexConsistenc…

…yVisitor
ApptiveGrid · Feb 16, 2024 · 1773651 · 1773651
2 parents f01ee6d + 3719c96
commit 1773651
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Soil-Core/SoilIndexConsistencyVisitor.class.st b/src/Soil-Core/SoilIndexConsistencyVisitor.class.st
@@ -1,7 +1,7 @@
 Class {
 	#name : #SoilIndexConsistencyVisitor,
 	#superclass : #SoilInstanceVisitor,
-	#category : #'Soil-Core-Model'
+	#category : #'Soil-Core-Visitor'
 }
 
 { #category : #api }
@@ -17,5 +17,5 @@ SoilIndexConsistencyVisitor >> visitPagedFileIndexStore: aSoilPagedFileIndexStor
 	1 to: numberOfPages do: [ :pageIndex | | page |
 		page := aSoilPagedFileIndexStore pageAt: pageIndex.
 		(page right allSatisfy: #isZero) ifTrue: [ 
-			(page index = numberOfPages)  ifFalse: [ self halt ] ] ]
+			(page index = numberOfPages)  ifFalse: [ Error signal: 'Index consistency check failed ' ] ] ]
 ]
diff --git a/src/Soil-Core/SoilJournalConsistencyVisitor.class.st b/src/Soil-Core/SoilJournalConsistencyVisitor.class.st
@@ -26,7 +26,7 @@ SoilJournalConsistencyVisitor >> verifyDatabaseVersion: aSoilTransactionJournal
 	"after initialization the database version should always be 
 	one larger than the one before"
 	(entry value = (databaseVersion + 1)) ifFalse: [ 
-		Error signal: 'nope' ].
+		Error signal: 'Journal consistency check failed: #verifyDatabaseVersion:' ].
 	databaseVersion := entry value
 ]
 
@@ -42,7 +42,7 @@ SoilJournalConsistencyVisitor >> verifyObjectIndexes: aSoilTransactionJournal [
 				at: entry objectId segment 
 				ifAbsentPut: [ entry objectId index - 1].
 			(newIndex >= oldIndex) ifFalse: [ 
-				Error signal: 'nope' ].
+				Error signal: 'Journal consistency check failed: #verifyObjectIndexes:' ].
 			segments 
 				at: entry objectId segment
 				put: newIndex ]