Merge pull request #77 from moosetechnology/76-Generate-testing-methods

Fix #76: add testing methods
moosetechnology · Oct 18, 2024 · 0a9d1ba · 0a9d1ba
2 parents f65942a + b1541b0
commit 0a9d1ba
Show file tree

Hide file tree

Showing 32 changed files with 434 additions and 231 deletions.
diff --git a/src/FAST-Core-Model/FASTEntity.class.st b/src/FAST-Core-Model/FASTEntity.class.st
@@ -11,14 +11,16 @@ any entity
 
 "
 Class {
-	#name : #FASTEntity,
-	#superclass : #MooseEntity,
+	#name : 'FASTEntity',
+	#superclass : 'MooseEntity',
 	#traits : 'FASTTEntity',
 	#classTraits : 'FASTTEntity classTrait',
-	#category : #'FAST-Core-Model-Entities'
+	#category : 'FAST-Core-Model-Entities',
+	#package : 'FAST-Core-Model',
+	#tag : 'Entities'
 }
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTEntity class >> annotation [
 
 	<FMClass: #Entity super: #MooseEntity>
@@ -27,14 +29,14 @@ FASTEntity class >> annotation [
 	^ self
 ]
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTEntity class >> metamodel [
 
 	<generated>
 	^ FASTModel metamodel
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 FASTEntity >> isQueryable [
 
 	<generated>

diff --git a/src/FAST-Core-Model/FASTModel.class.st b/src/FAST-Core-Model/FASTModel.class.st
@@ -1,18 +1,20 @@
 Class {
-	#name : #FASTModel,
-	#superclass : #MooseModel,
+	#name : 'FASTModel',
+	#superclass : 'MooseModel',
 	#traits : 'FASTTEntityCreator',
 	#classTraits : 'FASTTEntityCreator classTrait',
-	#category : #'FAST-Core-Model-Model'
+	#category : 'FAST-Core-Model-Model',
+	#package : 'FAST-Core-Model',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTModel class >> allSubmetamodelsPackagesNames [
 	<generated>
 	^ #(#'Moose-Query' #'Famix-Traits')
 ]
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTModel class >> annotation [
 	<FMClass: #FASTModel super: #MooseModel>
 	<package: #'FAST-Core-Model'>

diff --git a/src/FAST-Core-Model/FASTTAssignment.trait.st b/src/FAST-Core-Model/FASTTAssignment.trait.st
@@ -32,17 +32,19 @@ A node representing an assignment
 
 "
 Trait {
-	#name : #FASTTAssignment,
+	#name : 'FASTTAssignment',
 	#instVars : [
 		'#expression => FMOne type: #FASTTExpression opposite: #assignedIn',
 		'#variable => FMOne type: #FASTTVariableEntity opposite: #parentAssignmentExpression'
 	],
 	#traits : 'FASTTExpression',
 	#classTraits : 'FASTTExpression classTrait',
-	#category : #'FAST-Core-Model-Traits'
+	#category : 'FAST-Core-Model-Traits',
+	#package : 'FAST-Core-Model',
+	#tag : 'Traits'
 }
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTTAssignment classSide >> annotation [
 
 	<FMClass: #TAssignment super: #Object>
@@ -51,7 +53,7 @@ FASTTAssignment classSide >> annotation [
 	^ self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTAssignment >> expression [
 	"Relation named: #expression type: #FASTTExpression opposite: #assignedIn"
 
@@ -60,21 +62,28 @@ FASTTAssignment >> expression [
 	^ expression
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTAssignment >> expression: anObject [
 
 	<generated>
 	expression := anObject
 ]
 
-{ #category : #navigation }
+{ #category : 'navigation' }
 FASTTAssignment >> expressionGroup [
 	<generated>
 	<navigation: 'Expression'>
 	^ MooseSpecializedGroup with: self expression
 ]
 
-{ #category : #accessing }
+{ #category : 'testing' }
+FASTTAssignment >> isAssignment [
+
+	<generated>
+	^ true
+]
+
+{ #category : 'accessing' }
 FASTTAssignment >> variable [
 	"Relation named: #variable type: #FASTTVariableEntity opposite: #parentAssignmentExpression"
 
@@ -83,14 +92,14 @@ FASTTAssignment >> variable [
 	^ variable
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTAssignment >> variable: anObject [
 
 	<generated>
 	variable := anObject
 ]
 
-{ #category : #navigation }
+{ #category : 'navigation' }
 FASTTAssignment >> variableGroup [
 	<generated>
 	<navigation: 'Variable'>

diff --git a/src/FAST-Core-Model/FASTTBehaviouralEntity.trait.st b/src/FAST-Core-Model/FASTTBehaviouralEntity.trait.st
@@ -27,16 +27,18 @@ Local variables are intended to be stored in the local entities of the body
 
 "
 Trait {
-	#name : #FASTTBehaviouralEntity,
+	#name : 'FASTTBehaviouralEntity',
 	#instVars : [
 		'#statementBlock => FMOne type: #FASTTStatementBlock opposite: #fastBehaviouralParent'
 	],
 	#traits : 'FASTTScopableEntity + FASTTWithParameters',
 	#classTraits : 'FASTTScopableEntity classTrait + FASTTWithParameters classTrait',
-	#category : #'FAST-Core-Model-Traits'
+	#category : 'FAST-Core-Model-Traits',
+	#package : 'FAST-Core-Model',
+	#tag : 'Traits'
 }
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTTBehaviouralEntity classSide >> annotation [
 
 	<FMClass: #TBehaviouralEntity super: #Object>
@@ -45,7 +47,14 @@ FASTTBehaviouralEntity classSide >> annotation [
 	^ self
 ]
 
-{ #category : #accessing }
+{ #category : 'testing' }
+FASTTBehaviouralEntity >> isBehaviouralEntity [
+
+	<generated>
+	^ true
+]
+
+{ #category : 'accessing' }
 FASTTBehaviouralEntity >> statementBlock [
 	"Relation named: #statementBlock type: #FASTTStatementBlock opposite: #fastBehaviouralParent"
 
@@ -54,14 +63,14 @@ FASTTBehaviouralEntity >> statementBlock [
 	^ statementBlock
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTBehaviouralEntity >> statementBlock: anObject [
 
 	<generated>
 	statementBlock := anObject
 ]
 
-{ #category : #navigation }
+{ #category : 'navigation' }
 FASTTBehaviouralEntity >> statementBlockGroup [
 	<generated>
 	<navigation: 'StatementBlock'>

diff --git a/src/FAST-Core-Model/FASTTBinaryExpression.trait.st b/src/FAST-Core-Model/FASTTBinaryExpression.trait.st
@@ -33,18 +33,20 @@ A trait representing a binary expression of a node of a source code.
 
 "
 Trait {
-	#name : #FASTTBinaryExpression,
+	#name : 'FASTTBinaryExpression',
 	#instVars : [
 		'#leftOperand => FMOne type: #FASTTExpression opposite: #parentExpressionLeft',
 		'#operator => FMProperty',
 		'#rightOperand => FMOne type: #FASTTExpression opposite: #parentExpressionRight'
 	],
 	#traits : 'FASTTExpression',
 	#classTraits : 'FASTTExpression classTrait',
-	#category : #'FAST-Core-Model-Traits'
+	#category : 'FAST-Core-Model-Traits',
+	#package : 'FAST-Core-Model',
+	#tag : 'Traits'
 }
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTTBinaryExpression classSide >> annotation [
 
 	<FMClass: #TBinaryExpression super: #Object>
@@ -53,7 +55,14 @@ FASTTBinaryExpression classSide >> annotation [
 	^ self
 ]
 
-{ #category : #accessing }
+{ #category : 'testing' }
+FASTTBinaryExpression >> isBinaryExpression [
+
+	<generated>
+	^ true
+]
+
+{ #category : 'accessing' }
 FASTTBinaryExpression >> leftOperand [
 	"Relation named: #leftOperand type: #FASTTExpression opposite: #parentExpressionLeft"
 
@@ -62,21 +71,21 @@ FASTTBinaryExpression >> leftOperand [
 	^ leftOperand
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTBinaryExpression >> leftOperand: anObject [
 
 	<generated>
 	leftOperand := anObject
 ]
 
-{ #category : #navigation }
+{ #category : 'navigation' }
 FASTTBinaryExpression >> leftOperandGroup [
 	<generated>
 	<navigation: 'LeftOperand'>
 	^ MooseSpecializedGroup with: self leftOperand
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTBinaryExpression >> operator [
 
 	<FMProperty: #operator type: #String>
@@ -85,13 +94,13 @@ FASTTBinaryExpression >> operator [
 	^ operator
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTBinaryExpression >> operator: anObject [
 	<generated>
 	operator := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTBinaryExpression >> rightOperand [
 	"Relation named: #rightOperand type: #FASTTExpression opposite: #parentExpressionRight"
 
@@ -100,14 +109,14 @@ FASTTBinaryExpression >> rightOperand [
 	^ rightOperand
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 FASTTBinaryExpression >> rightOperand: anObject [
 
 	<generated>
 	rightOperand := anObject
 ]
 
-{ #category : #navigation }
+{ #category : 'navigation' }
 FASTTBinaryExpression >> rightOperandGroup [
 	<generated>
 	<navigation: 'RightOperand'>

diff --git a/src/FAST-Core-Model/FASTTBooleanLiteral.trait.st b/src/FAST-Core-Model/FASTTBooleanLiteral.trait.st
@@ -27,17 +27,26 @@ A boolean literal
 
 "
 Trait {
-	#name : #FASTTBooleanLiteral,
+	#name : 'FASTTBooleanLiteral',
 	#traits : 'FASTTLiteral',
 	#classTraits : 'FASTTLiteral classTrait',
-	#category : #'FAST-Core-Model-Traits'
+	#category : 'FAST-Core-Model-Traits',
+	#package : 'FAST-Core-Model',
+	#tag : 'Traits'
 }
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTTBooleanLiteral classSide >> annotation [
 
 	<FMClass: #TBooleanLiteral super: #Object>
 	<package: #'FAST-Core-Model'>
 	<generated>
 	^ self
 ]
+
+{ #category : 'testing' }
+FASTTBooleanLiteral >> isBooleanLiteral [
+
+	<generated>
+	^ true
+]
diff --git a/src/FAST-Core-Model/FASTTCharacterLiteral.trait.st b/src/FAST-Core-Model/FASTTCharacterLiteral.trait.st
@@ -27,17 +27,26 @@ A character literal
 
 "
 Trait {
-	#name : #FASTTCharacterLiteral,
+	#name : 'FASTTCharacterLiteral',
 	#traits : 'FASTTLiteral',
 	#classTraits : 'FASTTLiteral classTrait',
-	#category : #'FAST-Core-Model-Traits'
+	#category : 'FAST-Core-Model-Traits',
+	#package : 'FAST-Core-Model',
+	#tag : 'Traits'
 }
 
-{ #category : #meta }
+{ #category : 'meta' }
 FASTTCharacterLiteral classSide >> annotation [
 
 	<FMClass: #TCharacterLiteral super: #Object>
 	<package: #'FAST-Core-Model'>
 	<generated>
 	^ self
 ]
+
+{ #category : 'testing' }
+FASTTCharacterLiteral >> isCharacterLiteral [
+
+	<generated>
+	^ true
+]