From 945365c9a61d3c676ac4093a66dd16cf574eaea6 Mon Sep 17 00:00:00 2001 From: Jan Bliznicenko Date: Sun, 30 Jun 2024 17:58:21 +0200 Subject: [PATCH] reworking tests - wip --- .../OPBPMNActivityController.class.st | 5 - .../OPBPMNActivityControllerTest.class.st | 16 ++-- .../OPBPMNBasicFlowControllerTest.class.st | 7 +- .../OPBPMNBoundaryEventTest.class.st | 16 ++-- ...BPMNCollapsedSubProcessController.class.st | 5 - .../OPBPMNCollapsedSubProcessTest.class.st | 16 ++-- .../OPBPMNControllerTest.class.st | 92 ------------------- .../OPBPMNDataFlowControllerTest.class.st | 4 +- .../OPBPMNDataObjectTest.class.st | 16 ++-- .../OPBPMNEndEventControllerTest.class.st | 18 ++-- .../OPBPMNFlowControllerTest.class.st | 25 ++--- .../OPBPMNGatewayControllerTest.class.st | 16 ++-- ...MNIntermediateEventControllerTest.class.st | 16 ++-- .../OPBPMNMessageFlowControllerTest.class.st | 4 +- .../OPBPMNNodeControllerTest.class.st | 27 +----- .../OPBPMNPoolControllerTest.class.st | 12 +-- .../OPBPMNStartEventControllerTest.class.st | 16 ++-- .../OPBPMNSubProcessTest.class.st | 16 ++-- 18 files changed, 98 insertions(+), 229 deletions(-) delete mode 100644 repository/OpenPonk-BPMN/OPBPMNControllerTest.class.st diff --git a/repository/OpenPonk-BPMN/OPBPMNActivityController.class.st b/repository/OpenPonk-BPMN/OPBPMNActivityController.class.st index 2e48f32..05e2e3d 100644 --- a/repository/OpenPonk-BPMN/OPBPMNActivityController.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNActivityController.class.st @@ -61,11 +61,6 @@ OPBPMNActivityController >> canBeTargetFor: aController [ ] ] -{ #category : 'accessing' } -OPBPMNActivityController >> dependentElements [ - ^ (model incoming , model outgoing) asSet -] - { #category : 'connecting' } OPBPMNActivityController >> diagramElementClass [ diff --git a/repository/OpenPonk-BPMN/OPBPMNActivityControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNActivityControllerTest.class.st index f1a3835..3a55be7 100644 --- a/repository/OpenPonk-BPMN/OPBPMNActivityControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNActivityControllerTest.class.st @@ -12,21 +12,21 @@ OPBPMNActivityControllerTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNActivityControllerTest >> diagramElementClass [ - ^ OPBPMNActivityShape +OPBPMNActivityControllerTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNActivityControllerTest >> modelClass [ - ^ OPBPMNActivityModel +OPBPMNActivityControllerTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNActivityControllerTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNActivityControllerTest >> diagramElementClass [ + ^ OPBPMNActivityShape ] { #category : 'accessing' } -OPBPMNActivityControllerTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNActivityControllerTest >> modelClass [ + ^ OPBPMNActivityModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNBasicFlowControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNBasicFlowControllerTest.class.st index f51f335..9867250 100644 --- a/repository/OpenPonk-BPMN/OPBPMNBasicFlowControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNBasicFlowControllerTest.class.st @@ -23,11 +23,12 @@ OPBPMNBasicFlowControllerTest >> modelClass [ ] { #category : 'accessing' } -OPBPMNBasicFlowControllerTest >> targetControllerClass [ - ^ OPBPMNActivityController +OPBPMNBasicFlowControllerTest >> sourceControllerClass [ + + ^ OPBPMNActivityController ] { #category : 'accessing' } -OPBPMNBasicFlowControllerTest >> targetModelClass [ +OPBPMNBasicFlowControllerTest >> sourceModelClass [ ^ OPBPMNActivityModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNBoundaryEventTest.class.st b/repository/OpenPonk-BPMN/OPBPMNBoundaryEventTest.class.st index 89f43e2..8c3eae2 100644 --- a/repository/OpenPonk-BPMN/OPBPMNBoundaryEventTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNBoundaryEventTest.class.st @@ -12,23 +12,23 @@ OPBPMNBoundaryEventTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNBoundaryEventTest >> diagramElementClass [ - ^ OPBPMNBoundaryEventShape +OPBPMNBoundaryEventTest >> creationTargetControllerClass [ + ^ OPBPMNSubProcessController ] { #category : 'accessing' } -OPBPMNBoundaryEventTest >> modelClass [ - ^ OPBPMNBoundaryEventModel +OPBPMNBoundaryEventTest >> creationTargetModelClass [ + ^ OPBPMNSubProcessModel ] { #category : 'accessing' } -OPBPMNBoundaryEventTest >> targetControllerClass [ - ^ OPBPMNSubProcessController +OPBPMNBoundaryEventTest >> diagramElementClass [ + ^ OPBPMNBoundaryEventShape ] { #category : 'accessing' } -OPBPMNBoundaryEventTest >> targetModelClass [ - ^ OPBPMNSubProcessModel +OPBPMNBoundaryEventTest >> modelClass [ + ^ OPBPMNBoundaryEventModel ] { #category : 'accessing' } diff --git a/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessController.class.st b/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessController.class.st index 47548f1..0a93601 100644 --- a/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessController.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessController.class.st @@ -69,11 +69,6 @@ OPBPMNCollapsedSubProcessController >> canBeTargetFor: aController [ ] ] -{ #category : 'testing' } -OPBPMNCollapsedSubProcessController >> dependentElements [ - ^ (model incoming , model outgoing) asSet -] - { #category : 'testing' } OPBPMNCollapsedSubProcessController >> diagramElementClass [ diff --git a/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessTest.class.st b/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessTest.class.st index 22bf557..9d1d560 100644 --- a/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNCollapsedSubProcessTest.class.st @@ -12,21 +12,21 @@ OPBPMNCollapsedSubProcessTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNCollapsedSubProcessTest >> diagramElementClass [ - ^ OPBPMNCollapsedSubProcessShape +OPBPMNCollapsedSubProcessTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNCollapsedSubProcessTest >> modelClass [ - ^ OPBPMNCollapsedSubProcessModel +OPBPMNCollapsedSubProcessTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNCollapsedSubProcessTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNCollapsedSubProcessTest >> diagramElementClass [ + ^ OPBPMNCollapsedSubProcessShape ] { #category : 'accessing' } -OPBPMNCollapsedSubProcessTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNCollapsedSubProcessTest >> modelClass [ + ^ OPBPMNCollapsedSubProcessModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNControllerTest.class.st deleted file mode 100644 index 591cc21..0000000 --- a/repository/OpenPonk-BPMN/OPBPMNControllerTest.class.st +++ /dev/null @@ -1,92 +0,0 @@ -Class { - #name : 'OPBPMNControllerTest', - #superclass : 'OPElementControllerTest', - #instVars : [ - 'relationshipController' - ], - #category : 'OpenPonk-BPMN-Tests', - #package : 'OpenPonk-BPMN', - #tag : 'Tests' -} - -{ #category : 'testing' } -OPBPMNControllerTest class >> isAbstract [ - - ^ self = OPBPMNControllerTest -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> controllerClass [ - ^ self subclassResponsibility -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> createTargetModel [ - ^ self targetModelClass new -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> diagramControllerClass [ - - ^ OPBPMNDiagramController -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> diagramElementClass [ - - ^ self subclassResponsibility -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> diagramModelClass [ - ^ OPBPMNModel -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> modelClass [ - ^ self subclassResponsibility -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> modelOwner [ - ^ diagramController model -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> setUp [ - super setUp. - self setUpTarget -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> setUpTarget [ - relationshipController := self targetControllerClass new. - relationshipController diagramController: diagramController. - relationshipController createModelIn: diagramController model -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> targetControllerClass [ - ^ self subclassResponsibility -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> targetModelClass [ - ^ self subclassResponsibility -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> testCreateController [ - self assert: controller class equals: self controllerClass -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> testCreateModel [ - controller createModelIn: relationshipController model. - self assert: controller model class equals: self modelClass -] - -{ #category : 'accessing' } -OPBPMNControllerTest >> testModelClass [ - self assert: controller modelClass equals: self modelClass -] diff --git a/repository/OpenPonk-BPMN/OPBPMNDataFlowControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNDataFlowControllerTest.class.st index d97098e..45e5927 100644 --- a/repository/OpenPonk-BPMN/OPBPMNDataFlowControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNDataFlowControllerTest.class.st @@ -23,12 +23,12 @@ OPBPMNDataFlowControllerTest >> modelClass [ ] { #category : 'accessing' } -OPBPMNDataFlowControllerTest >> targetControllerClass [ +OPBPMNDataFlowControllerTest >> sourceControllerClass [ ^ OPBPMNDataObjectController ] { #category : 'accessing' } -OPBPMNDataFlowControllerTest >> targetModelClass [ +OPBPMNDataFlowControllerTest >> sourceModelClass [ ^ OPBPMNDataObjectModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNDataObjectTest.class.st b/repository/OpenPonk-BPMN/OPBPMNDataObjectTest.class.st index 11c6075..361b8b3 100644 --- a/repository/OpenPonk-BPMN/OPBPMNDataObjectTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNDataObjectTest.class.st @@ -12,21 +12,21 @@ OPBPMNDataObjectTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNDataObjectTest >> diagramElementClass [ - ^ OPBPMNDataObjectShape +OPBPMNDataObjectTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNDataObjectTest >> modelClass [ - ^ OPBPMNDataObjectModel +OPBPMNDataObjectTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNDataObjectTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNDataObjectTest >> diagramElementClass [ + ^ OPBPMNDataObjectShape ] { #category : 'accessing' } -OPBPMNDataObjectTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNDataObjectTest >> modelClass [ + ^ OPBPMNDataObjectModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNEndEventControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNEndEventControllerTest.class.st index c2912f8..8643feb 100644 --- a/repository/OpenPonk-BPMN/OPBPMNEndEventControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNEndEventControllerTest.class.st @@ -12,22 +12,22 @@ OPBPMNEndEventControllerTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNEndEventControllerTest >> diagramElementClass [ - - ^ OPBPMNEndEventShape +OPBPMNEndEventControllerTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNEndEventControllerTest >> modelClass [ - ^ OPBPMNEndEventModel +OPBPMNEndEventControllerTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNEndEventControllerTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNEndEventControllerTest >> diagramElementClass [ + + ^ OPBPMNEndEventShape ] { #category : 'accessing' } -OPBPMNEndEventControllerTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNEndEventControllerTest >> modelClass [ + ^ OPBPMNEndEventModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNFlowControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNFlowControllerTest.class.st index 24644cf..f8f6800 100644 --- a/repository/OpenPonk-BPMN/OPBPMNFlowControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNFlowControllerTest.class.st @@ -1,10 +1,6 @@ Class { #name : 'OPBPMNFlowControllerTest', - #superclass : 'OPBPMNControllerTest', - #instVars : [ - 'fromCtrl', - 'toCtrl' - ], + #superclass : 'OPAbstractDirectionalRelationshipControllerTest', #category : 'OpenPonk-BPMN-Tests', #package : 'OpenPonk-BPMN', #tag : 'Tests' @@ -23,15 +19,15 @@ OPBPMNFlowControllerTest >> amountOfLabels [ ^ 1 ] -{ #category : 'tests' } -OPBPMNFlowControllerTest >> controllerClass [ - ^ self subclassResponsibility -] +{ #category : 'accessing' } +OPBPMNFlowControllerTest >> diagramControllerClass [ -{ #category : 'tests' } -OPBPMNFlowControllerTest >> diagramElementClass [ + ^ OPBPMNDiagramController +] - ^ self subclassResponsibility +{ #category : 'accessing' } +OPBPMNFlowControllerTest >> diagramModelClass [ + ^ OPBPMNModel ] { #category : 'tests' } @@ -39,11 +35,6 @@ OPBPMNFlowControllerTest >> fromClass [ ^ OPBPMNStartEventController ] -{ #category : 'tests' } -OPBPMNFlowControllerTest >> modelClass [ - ^ self subclassResponsibility -] - { #category : 'tests' } OPBPMNFlowControllerTest >> setUp [ diff --git a/repository/OpenPonk-BPMN/OPBPMNGatewayControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNGatewayControllerTest.class.st index 321295e..e617121 100644 --- a/repository/OpenPonk-BPMN/OPBPMNGatewayControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNGatewayControllerTest.class.st @@ -12,21 +12,21 @@ OPBPMNGatewayControllerTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNGatewayControllerTest >> diagramElementClass [ - ^ OPBPMNGatewayShape +OPBPMNGatewayControllerTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNGatewayControllerTest >> modelClass [ - ^ OPBPMNGatewayModel +OPBPMNGatewayControllerTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNGatewayControllerTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNGatewayControllerTest >> diagramElementClass [ + ^ OPBPMNGatewayShape ] { #category : 'accessing' } -OPBPMNGatewayControllerTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNGatewayControllerTest >> modelClass [ + ^ OPBPMNGatewayModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNIntermediateEventControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNIntermediateEventControllerTest.class.st index c0456a1..a69c2b5 100644 --- a/repository/OpenPonk-BPMN/OPBPMNIntermediateEventControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNIntermediateEventControllerTest.class.st @@ -12,21 +12,21 @@ OPBPMNIntermediateEventControllerTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNIntermediateEventControllerTest >> diagramElementClass [ - ^ OPBPMNIntermediateEventShape +OPBPMNIntermediateEventControllerTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNIntermediateEventControllerTest >> modelClass [ - ^ OPBPMNIntermediateEventModel +OPBPMNIntermediateEventControllerTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNIntermediateEventControllerTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNIntermediateEventControllerTest >> diagramElementClass [ + ^ OPBPMNIntermediateEventShape ] { #category : 'accessing' } -OPBPMNIntermediateEventControllerTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNIntermediateEventControllerTest >> modelClass [ + ^ OPBPMNIntermediateEventModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNMessageFlowControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNMessageFlowControllerTest.class.st index 8921ea8..13ffe60 100644 --- a/repository/OpenPonk-BPMN/OPBPMNMessageFlowControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNMessageFlowControllerTest.class.st @@ -23,11 +23,11 @@ OPBPMNMessageFlowControllerTest >> modelClass [ ] { #category : 'accessing' } -OPBPMNMessageFlowControllerTest >> targetControllerClass [ +OPBPMNMessageFlowControllerTest >> sourceControllerClass [ ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNMessageFlowControllerTest >> targetModelClass [ +OPBPMNMessageFlowControllerTest >> sourceModelClass [ ^ OPBPMNPoolModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNNodeControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNNodeControllerTest.class.st index 3c63631..397a066 100644 --- a/repository/OpenPonk-BPMN/OPBPMNNodeControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNNodeControllerTest.class.st @@ -1,6 +1,6 @@ Class { #name : 'OPBPMNNodeControllerTest', - #superclass : 'OPBPMNControllerTest', + #superclass : 'OPAbstractElementControllerTest', #category : 'OpenPonk-BPMN-Tests', #package : 'OpenPonk-BPMN', #tag : 'Tests' @@ -14,26 +14,10 @@ OPBPMNNodeControllerTest class >> isAbstract [ ^ (self = OPBPMNNodeControllerTest) | (self = OPBPMNControllerTest) ] -{ #category : 'accessing' } -OPBPMNNodeControllerTest >> controllerClass [ - ^ self subclassResponsibility -] - -{ #category : 'accessing' } -OPBPMNNodeControllerTest >> diagramElementClass [ - - ^ self subclassResponsibility -] - -{ #category : 'accessing' } -OPBPMNNodeControllerTest >> modelClass [ - ^ self subclassResponsibility -] - { #category : 'accessing' } OPBPMNNodeControllerTest >> testAssignmentToParent [ - controller createModelIn: relationshipController model. - self assert: (relationshipController model elements includes: controller model) + controller createModelIn: ownerController model. + self assert: (ownerController model elements includes: controller model) ] { #category : 'accessing' } @@ -41,11 +25,6 @@ OPBPMNNodeControllerTest >> testClassSideModelClass [ self assert: self controllerClass modelClass equals: self modelClass ] -{ #category : 'accessing' } -OPBPMNNodeControllerTest >> testCreateController [ - self assert: controller class = self controllerClass -] - { #category : 'accessing' } OPBPMNNodeControllerTest >> testCreateModel [ self diff --git a/repository/OpenPonk-BPMN/OPBPMNPoolControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNPoolControllerTest.class.st index 2a56bbb..1db0346 100644 --- a/repository/OpenPonk-BPMN/OPBPMNPoolControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNPoolControllerTest.class.st @@ -12,22 +12,22 @@ OPBPMNPoolControllerTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNPoolControllerTest >> diagramElementClass [ - ^ OPBPMNPoolShape +OPBPMNPoolControllerTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNPoolControllerTest >> modelClass [ +OPBPMNPoolControllerTest >> creationTargetModelClass [ ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNPoolControllerTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNPoolControllerTest >> diagramElementClass [ + ^ OPBPMNPoolShape ] { #category : 'accessing' } -OPBPMNPoolControllerTest >> targetModelClass [ +OPBPMNPoolControllerTest >> modelClass [ ^ OPBPMNPoolModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNStartEventControllerTest.class.st b/repository/OpenPonk-BPMN/OPBPMNStartEventControllerTest.class.st index 039523f..b194b52 100644 --- a/repository/OpenPonk-BPMN/OPBPMNStartEventControllerTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNStartEventControllerTest.class.st @@ -12,21 +12,21 @@ OPBPMNStartEventControllerTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNStartEventControllerTest >> diagramElementClass [ - ^ OPBPMNStartEventShape +OPBPMNStartEventControllerTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNStartEventControllerTest >> modelClass [ - ^ OPBPMNStartEventModel +OPBPMNStartEventControllerTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNStartEventControllerTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNStartEventControllerTest >> diagramElementClass [ + ^ OPBPMNStartEventShape ] { #category : 'accessing' } -OPBPMNStartEventControllerTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNStartEventControllerTest >> modelClass [ + ^ OPBPMNStartEventModel ] diff --git a/repository/OpenPonk-BPMN/OPBPMNSubProcessTest.class.st b/repository/OpenPonk-BPMN/OPBPMNSubProcessTest.class.st index 2e99d00..c9cb257 100644 --- a/repository/OpenPonk-BPMN/OPBPMNSubProcessTest.class.st +++ b/repository/OpenPonk-BPMN/OPBPMNSubProcessTest.class.st @@ -12,21 +12,21 @@ OPBPMNSubProcessTest >> controllerClass [ ] { #category : 'accessing' } -OPBPMNSubProcessTest >> diagramElementClass [ - ^ OPBPMNSubProcessShape +OPBPMNSubProcessTest >> creationTargetControllerClass [ + ^ OPBPMNPoolController ] { #category : 'accessing' } -OPBPMNSubProcessTest >> modelClass [ - ^ OPBPMNSubProcessModel +OPBPMNSubProcessTest >> creationTargetModelClass [ + ^ OPBPMNPoolModel ] { #category : 'accessing' } -OPBPMNSubProcessTest >> targetControllerClass [ - ^ OPBPMNPoolController +OPBPMNSubProcessTest >> diagramElementClass [ + ^ OPBPMNSubProcessShape ] { #category : 'accessing' } -OPBPMNSubProcessTest >> targetModelClass [ - ^ OPBPMNPoolModel +OPBPMNSubProcessTest >> modelClass [ + ^ OPBPMNSubProcessModel ]