Merge pull request #35 from moosetechnology/34-We-should-be-able-to-t…

…ag-a-MooseGroup

Fix #34

src/Famix-Tagging-Tests/FamixTagMooseGroupTest.class.st

@@ -0,0 +1,41 @@
+Class {
+	#name : #FamixTagMooseGroupTest,
+	#superclass : #TestCase,
+	#instVars : [
+		'model'
+	],
+	#category : #'Famix-Tagging-Tests'
+}
+
+{ #category : #running }
+FamixTagMooseGroupTest >> setUp [
+
+	super setUp.
+	model := FamixTagMockModelBuilder buildModel
+]
+
+{ #category : #tests }
+FamixTagMooseGroupTest >> testTagMooseGroup [
+
+	| mooseGroup tag |
+	mooseGroup := model allModelClasses.
+	tag := model tagNamed: 'myTag'.
+	mooseGroup tagEntitiesWith: tag.
+
+	self assert: (mooseGroup first hasTagNamed: 'myTag').
+	self assert: (mooseGroup second hasTagNamed: 'myTag')
+
+]
+
+{ #category : #tests }
+FamixTagMooseGroupTest >> testTagMooseGroupWithName [
+
+	| mooseGroup |
+	mooseGroup := model allModelClasses.
+
+	mooseGroup tagEntitiesWithName: 'myTag'.
+
+	self assert: (mooseGroup first hasTagNamed: 'myTag').
+	self assert: (mooseGroup second hasTagNamed: 'myTag')
+
+]

src/Famix-Tagging/MooseGroup.extension.st

@@ -0,0 +1,13 @@
+Extension { #name : #MooseGroup }
+
+{ #category : #'*Famix-Tagging' }
+MooseGroup >> tagEntitiesWith: aTag [
+
+	self do: [ :e | e tagWith: aTag ]
+]
+
+{ #category : #'*Famix-Tagging' }
+MooseGroup >> tagEntitiesWithName: aTagName [
+
+	self do: [ :e | e tagWithName: aTagName ]
+]