More test cases

Author: Nyan11

src/ExecutableRequirements-Tests/ExReqRepositoryReportTest.class.st

@@ -100,3 +100,44 @@ ExReqRepositoryReportTest >> testRepositoryEquivalentReport [
 				repSte := repVer stepReports at: indexSte.
 				self assert: ste equals: repSte step ] ] ]
 ]
+
+{ #category : 'tests' }
+ExReqRepositoryReportTest >> testStepReportIsValidEvent [
+
+	| success |
+	success := false.
+	self report announcer
+		when: ExReqStepReportIsValidEvent
+		do: [ :evt | success := true ]
+		for: self.
+	self report installTracingPoints.
+	ExReqMockRequirements new testReq7.
+	self assert: success
+]
+
+{ #category : 'tests' }
+ExReqRepositoryReportTest >> testTracingPointInstalledEvent [
+
+	| success |
+	success := false.
+	self report announcer
+		when: ExReqTracingPointInstalledEvent
+		do: [ :evt | success := true ]
+		for: self.
+	self report installTracingPoints.
+	self assert: success
+]
+
+{ #category : 'tests' }
+ExReqRepositoryReportTest >> testTracingPointRemovedEvent [
+
+	| success |
+	success := false.
+	self report announcer
+		when: ExReqTracingPointRemovedEvent
+		do: [ :evt | success := true ]
+		for: self.
+	self report installTracingPoints.
+	self report removeTracingPoints.
+	self assert: success
+]