Adding events

Author: Nyan11

src/ExecutableRequirements-Tests/ExReqMockRequirements.class.st

@@ -137,3 +137,25 @@ ExReqMockRequirements >> testReq7 [
 				  withPostcondition: [ :obj :arguments :requirement | true ] ];
 		  yourself
 ]
+
+{ #category : 'tests' }
+ExReqMockRequirements >> testReq8 [
+
+	<ExReqTest>
+	^ ExReqRequirement new
+		  title: 'A requirement verifications can have multiple steps';
+		  addVerification: [ :verify |
+			  verify addStepOnAST:
+					  ((ExReqMockRequirements methodNamed: #testReq8) ast allChildren
+						   select: [ :each | each isSequence ]) second.
+			  verify addStepOnAST:
+					  ((ExReqMockRequirements methodNamed: #testReq8) ast allChildren
+						   select: [ :each | each isSequence ]) second.
+			  verify addStepOnAST:
+					  ((ExReqMockRequirements methodNamed: #testReq8) ast allChildren
+						   select: [ :each | each isSequence ]) second.
+			  verify addStepOnAST:
+					  ((ExReqMockRequirements methodNamed: #testReq8) ast allChildren
+						   select: [ :each | each isSequence ]) second ];
+		  yourself
+]

src/ExecutableRequirements/ExReqRepositoryReport.class.st

@@ -4,7 +4,8 @@ Class {
 	#instVars : [
 		'requirementReports',
 		'repository',
-		'tracingPoints'
+		'tracingPoints',
+		'announcer'
 	],
 	#category : 'ExecutableRequirements-Model-Report',
 	#package : 'ExecutableRequirements',
@@ -23,6 +24,34 @@ ExReqRepositoryReport >> allValidRequirementReports [
 	^ self requirementReports select: [ :each | each isValid ]
 ]
 
+{ #category : 'as yet unclassified' }
+ExReqRepositoryReport >> annouceStepReportIsValid: aStepReport [
+
+	self announcer announce:
+			(ExReqStepReportIsValidEvent new
+				 stepReport: aStepReport;
+				 yourself)
+]
+
+{ #category : 'as yet unclassified' }
+ExReqRepositoryReport >> annouceTracingPointInstalled [
+
+	self announcer announce: (ExReqTracingPointInstalledEvent new)
+]
+
+{ #category : 'as yet unclassified' }
+ExReqRepositoryReport >> annouceTracingPointRemoved [
+
+	self announcer ifNil: [ ^ self ].
+	self announcer announce: ExReqTracingPointRemovedEvent new
+]
+
+{ #category : 'initialization' }
+ExReqRepositoryReport >> announcer [
+
+	^ announcer
+]
+
 { #category : 'as yet unclassified' }
 ExReqRepositoryReport >> createTracingPoints [
 
@@ -61,6 +90,7 @@ ExReqRepositoryReport >> initialize [
 
 	super initialize.
 	tracingPoints := OrderedCollection new.
+	announcer := Announcer new
 ]
 
 { #category : 'as yet unclassified' }
@@ -72,6 +102,7 @@ ExReqRepositoryReport >> installTracingPoints [
 		each postconditionTracingPoint install ].
 	self isInstalled: true.
 	self isRunning: true.
+	self annouceTracingPointInstalled
 ]
 
 { #category : 'testing' }
@@ -93,7 +124,7 @@ ExReqRepositoryReport >> removeTracingPoints [
 		each preconditionTracingPoint remove.
 		each postconditionTracingPoint remove ].
 	self isRunning: false.
-	
+	self annouceTracingPointRemoved
 ]
 
 { #category : 'accessing' }

src/ExecutableRequirements/ExReqStepReport.class.st

@@ -179,7 +179,8 @@ ExReqStepReport >> verifyStepPostconditionWithContext: aContext [
 				                                                 aContext
 					                                                 arguments.
 				                                                 self requirement }.
-	self isValid ifTrue: [ self repositoryReport emitStepIsValid: self. ]
+	self isValid ifTrue: [
+		self repositoryReport annouceStepReportIsValid: self ]
 ]
 
 { #category : 'as yet unclassified' }

src/ExecutableRequirements/ExReqStepReportIsValidEvent.class.st

@@ -0,0 +1,22 @@
+Class {
+	#name : 'ExReqStepReportIsValidEvent',
+	#superclass : 'Announcement',
+	#instVars : [
+		'stepReport'
+	],
+	#category : 'ExecutableRequirements-Events',
+	#package : 'ExecutableRequirements',
+	#tag : 'Events'
+}
+
+{ #category : 'accessing' }
+ExReqStepReportIsValidEvent >> stepReport [
+
+	^ stepReport
+]
+
+{ #category : 'accessing' }
+ExReqStepReportIsValidEvent >> stepReport: anObject [
+
+	stepReport := anObject
+]

src/ExecutableRequirements/ExReqTracingPoint.class.st

@@ -23,9 +23,14 @@ ExReqTracingPoint class >> all [
 ExReqTracingPoint class >> cleanUp [
 
 	<script>
-	ExReqPreconditionTracingPoint allInstances do: [ :each | each remove ].
-	ExReqPostconditionTracingPoint allInstances do: [ :each | each remove ].
-	self all removeAll
+	ExReqPreconditionTracingPoint allInstances do: [ :each | 
+		each link uninstall.
+		each remove ].
+	ExReqPostconditionTracingPoint allInstances do: [ :each |
+		each link uninstall.
+		each remove ].
+	self all removeAll.
+	Smalltalk image garbageCollect
 ]
 
 { #category : 'accessing' }

src/ExecutableRequirements/ExReqTracingPointInstalledEvent.class.st

@@ -0,0 +1,10 @@
+Class {
+	#name : 'ExReqTracingPointInstalledEvent',
+	#superclass : 'Announcement',
+	#instVars : [
+		'stepReport'
+	],
+	#category : 'ExecutableRequirements-Events',
+	#package : 'ExecutableRequirements',
+	#tag : 'Events'
+}

src/ExecutableRequirements/ExReqTracingPointRemovedEvent.class.st

@@ -0,0 +1,10 @@
+Class {
+	#name : 'ExReqTracingPointRemovedEvent',
+	#superclass : 'Announcement',
+	#instVars : [
+		'stepReport'
+	],
+	#category : 'ExecutableRequirements-Events',
+	#package : 'ExecutableRequirements',
+	#tag : 'Events'
+}