Merge pull request #702 from moosetechnology/when-do

Remove some deprecated calls in P12
moosetechnology · Jan 30, 2024 · ca48086 · ca48086
2 parents 9302a1c + 33f5aab
commit ca48086
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/Moose-Core-Tests/MooseModelTest.class.st b/src/Moose-Core-Tests/MooseModelTest.class.st
@@ -20,9 +20,10 @@ MooseModelTest >> testAdd [
 
 { #category : #tests }
 MooseModelTest >> testAddAnnouncement [
+
 	| entity announcedEntity |
 	entity := MooseEntity new.
-	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ].
+	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ] for: self.
 
 	group add: entity.
 	self assert: announcedEntity identicalTo: entity
@@ -57,10 +58,11 @@ MooseModelTest >> testAsMSEString [
 
 { #category : #tests }
 MooseModelTest >> testBookmarkAsRaisesAnnouncement [
+
 	| entity1 announcedEntity |
 	entity1 := MooseEntity new.
 	group add: entity1.
-	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ].
+	group announcer when: MooseEntityAdded do: [ :a | announcedEntity := a entity ] for: self.
 
 	entity1 bookmarkAs: 'one'.
 	self assert: announcedEntity isNotNil
@@ -162,9 +164,10 @@ MooseModelTest >> testRemoveAllEntity [
 
 { #category : #tests }
 MooseModelTest >> testRemoveAnnouncement [
+
 	| entity announcedEntity |
 	entity := MooseEntity new.
-	group announcer when: MooseEntityRemoved do: [ :a | announcedEntity := a entity ].
+	group announcer when: MooseEntityRemoved do: [ :a | announcedEntity := a entity ] for: self.
 	group add: entity.
 	self assert: announcedEntity isNil.
 	group remove: entity.
@@ -213,8 +216,9 @@ MooseModelTest >> testRemoveModelNamedFromRoot [
 
 { #category : #tests }
 MooseModelTest >> testRenamedAnnouncement [
+
 	| oldName |
-	group announcer when: MooseEntityRenamed do: [ :a | oldName := a oldName ].
+	group announcer when: MooseEntityRenamed do: [ :a | oldName := a oldName ] for: self.
 	group name: #somename.
 	self assert: oldName equals: #noname.
 	group name: #anothername.