Localize user-facing error text in assertIncludes:

ba-st · Aug 23, 2024 · bb9ab19 · bb9ab19
1 parent 43141db
commit bb9ab19
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/source/Sagan-Core/RepositoryBehavior.class.st b/source/Sagan-Core/RepositoryBehavior.class.st
@@ -43,10 +43,13 @@ RepositoryBehavior >> assertBoundariesAreValidFrom: aStartingPosition upTo: aMax
 { #category : 'private - preconditions' }
 RepositoryBehavior >> assertIncludes: inMemoryObject [
 
-	AssertionChecker
-		enforce: [ ( self countMatching: [ :objectInRepository :criteria | criteria does: objectInRepository equal: inMemoryObject ] ) strictlyPositive ]
-		because: [ '<1p> was not found.' expandMacrosWith: inMemoryObject ]
-		raising: ObjectNotFound
+  AssertionChecker
+    enforce: [
+        ( self countMatching: [ :objectInRepository :criteria |
+              criteria does: objectInRepository equal: inMemoryObject ] ) strictlyPositive
+      ]
+    because: [ '{1} was not found.' localizedWithAll: { inMemoryObject printString } ]
+    raising: ObjectNotFound
 ]
 
 { #category : 'private - preconditions' }