10-Crear-API-de-Teams

source/BaselineOfTeamsApi/BaselineOfTeamsApi.class.st

@@ -19,12 +19,13 @@ BaselineOfTeamsApi >> baseline: spec [
 
 { #category : #accessing }
 BaselineOfTeamsApi >> baselineTeamsApi: spec [
+
 	spec
 		package: 'TeamsAPI-Core' with: [ spec requires: #('Kepler') ];
-		group: 'Deployment' with: 'TeamsAPI-Core';
 		package: 'TeamsAPI-Core-Tests'
-			with: [ spec requires: 'Deployment' ];
-		group: 'Tests' with: 'TeamsAPI-Core-Tests'
+			with: [ spec requires: #('Deployment') ];
+		group: 'Deployment' with: #('TeamsAPI-Core');
+		group: 'Tests' with: #('TeamsAPI-Core-Tests')
 ]
 
 { #category : #accessing }

source/TeamsAPI-Core-Tests/PeopleRESTfulControllerSpecificationTest.class.st

@@ -0,0 +1,18 @@
+Class {
+	#name : #PeopleRESTfulControllerSpecificationTest,
+	#superclass : #TestCase,
+	#category : #'TeamsAPI-Core-Tests-Controllers'
+}
+
+{ #category : #'as yet unclassified' }
+PeopleRESTfulControllerSpecificationTest >> testTemplate [
+
+	| spec |
+
+	spec := PeopleRESTfulControllerSpecification new.
+
+	self
+		assert: spec addTemplate equals: '/people/<identifier:IsInteger>';
+		assert: spec listTemplate equals: '/people';
+		assert: spec detailTemplate equals: '/people/<identifier:IsInteger>'
+]

source/TeamsAPI-Core-Tests/PeopleRESTfulControllerTest.class.st

@@ -0,0 +1,108 @@
+Class {
+	#name : #PeopleRESTfulControllerTest,
+	#superclass : #ResourceRESTfulControllerTest,
+	#instVars : [
+		'peopleManagementSystem'
+	],
+	#category : #'TeamsAPI-Core-Tests-Controllers'
+}
+
+{ #category : #test }
+PeopleRESTfulControllerTest >> baseUrl [
+
+	^ 'http://people.mercap.net' asZnUrl
+]
+
+{ #category : #'block support' }
+PeopleRESTfulControllerTest >> defaultPersonMediaType [
+	^ resourceController specification personVersion1dot0dot0MediaType
+]
+
+{ #category : #'block support' }
+PeopleRESTfulControllerTest >> registerPerson: aPerson [
+
+	peopleManagementSystem startManagingPerson: aPerson
+]
+
+{ #category : #'block support' }
+PeopleRESTfulControllerTest >> requestToCreatePersonFrom: json [
+
+	^ self requestToPOST: json as: self defaultPersonMediaType
+]
+
+{ #category : #'block support' }
+PeopleRESTfulControllerTest >> requestToGet: aUrl accepting: anAcceptHeader [
+
+	^ TeaRequest
+		fromZnRequest:
+			((ZnRequest get: aUrl)
+				setAccept: anAcceptHeader;
+				yourself)
+]
+
+{ #category : #'block support' }
+PeopleRESTfulControllerTest >> requestToGetPeopleAccepting: anAcceptHeader [
+
+	^ self requestToGet: self resourceUrl accepting: anAcceptHeader
+]
+
+{ #category : #test }
+PeopleRESTfulControllerTest >> setUp [
+
+	peopleManagementSystem := PeopleManagementSystem new.
+	super setUp
+]
+
+{ #category : #test }
+PeopleRESTfulControllerTest >> setUpResourceController [
+
+	resourceController := PeopleRESTfulController
+		for: peopleManagementSystem
+]
+
+{ #category : #tests }
+PeopleRESTfulControllerTest >> testGetWhenNoPeopleRegistered [
+
+	| response |
+
+	response := resourceController
+		getPeopleBasedOn: (self requestToGetPeopleAccepting: '*/*')
+		within: self newHttpRequestContext.
+
+	self
+		assert: response isSuccess;
+		assert: response status equals: 200;
+		assert: response contentType asMediaType
+			equals: resourceController specification personVersion1dot0dot0MediaType.
+
+	self
+		withJsonFromContentsIn: response
+		do: [ :people | self assert: people isEmpty ]
+]
+
+{ #category : #tests }
+PeopleRESTfulControllerTest >> testPersonCreation [
+
+	| response |
+
+	response := resourceController
+		createPersonBasedOn:
+			(self
+				requestToCreatePersonFrom:
+					'{"name":"Roberto","lastName":"Rodriguez","email":"[email protected]"}')
+		within: self newHttpRequestContext.
+	self
+		assert: response isSuccess;
+		assert: response status equals: 201;
+		assertUrl: response location
+			equals: 'http://people.mercap.net/people/1';
+		assert: response hasEntity;
+		assert: peopleManagementSystem people size equals: 1;
+		assert: peopleManagementSystem people first name equals: 'Roberto'
+]
+
+{ #category : #test }
+PeopleRESTfulControllerTest >> urlOf: aPerson [
+
+	^ (self resourceUrl / aPerson uuid asString) asString
+]

source/TeamsAPI-Core-Tests/PersonSystemTest.class.st → source/TeamsAPI-Core-Tests/PersonManagementSystemTest.class.st

@@ -2,39 +2,39 @@
 A PersonSystemTest is a test class for testing the behavior of PersonSystem
 "
 Class {
-	#name : #PersonSystemTest,
+	#name : #PersonManagementSystemTest,
 	#superclass : #TestCase,
 	#instVars : [
 		'rootSystem'
 	],
-	#category : #'TeamsAPI-Core-Tests'
+	#category : #'TeamsAPI-Core-Tests-Systems'
 }
 
 { #category : #acccessing }
-PersonSystemTest >> lucasRojas [
+PersonManagementSystemTest >> lucasRojas [
 	^ Person
 		named: 'Lucas'
 		surnamed: 'Rojas'
 		withEmailAddress: '[email protected]'
 ]
 
 { #category : #acccessing }
-PersonSystemTest >> personSystem [
+PersonManagementSystemTest >> personSystem [
 	^ rootSystem systemImplementing: #PersonSystemInterface
 ]
 
 { #category : #initializing }
-PersonSystemTest >> setUp [
+PersonManagementSystemTest >> setUp [
 	super setUp.
 	rootSystem := CompositeSystem new.
 	rootSystem
-		register: PersonSystem new;
-		register: TeamSystem new;
+		register: PeopleManagementSystem new;
+		register: TeamManagementSystem new;
 		startUp
 ]
 
 { #category : #tests }
-PersonSystemTest >> testAddPerson [
+PersonManagementSystemTest >> testAddPerson [
 	| person personSystem |
 	person := self lucasRojas.
 	personSystem := self personSystem.
@@ -45,7 +45,7 @@ PersonSystemTest >> testAddPerson [
 ]
 
 { #category : #tests }
-PersonSystemTest >> testDeletePerson [
+PersonManagementSystemTest >> testDeletePerson [
 	| person personSystem |
 	person := self lucasRojas.
 	personSystem := self personSystem.
@@ -58,7 +58,7 @@ PersonSystemTest >> testDeletePerson [
 ]
 
 { #category : #tests }
-PersonSystemTest >> testFailToDeletePersonAlreadyDeleted [
+PersonManagementSystemTest >> testFailToDeletePersonAlreadyDeleted [
 	| person personSystem |
 	person := self lucasRojas.
 	personSystem := self personSystem.
@@ -79,7 +79,7 @@ PersonSystemTest >> testFailToDeletePersonAlreadyDeleted [
 ]
 
 { #category : #tests }
-PersonSystemTest >> testFailWhenAddingAPersonWithSameEmailAddress [
+PersonManagementSystemTest >> testFailWhenAddingAPersonWithSameEmailAddress [
 	| person personSystem personWithSameEmail |
 	person := self lucasRojas.
 	personWithSameEmail := Person
@@ -101,6 +101,6 @@ PersonSystemTest >> testFailWhenAddingAPersonWithSameEmailAddress [
 ]
 
 { #category : #tests }
-PersonSystemTest >> testGetPeopleOnEmptySystem [
+PersonManagementSystemTest >> testGetPeopleOnEmptySystem [
 	self assert: self personSystem people isEmpty
 ]

source/TeamsAPI-Core-Tests/PersonTest.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #PersonTest,
 	#superclass : #TestCase,
-	#category : #'TeamsAPI-Core-Tests'
+	#category : #'TeamsAPI-Core-Tests-Model'
 }
 
 { #category : #tests }

source/TeamsAPI-Core-Tests/TeamSystemTest.class.st → source/TeamsAPI-Core-Tests/TeamManagementSystemTest.class.st

@@ -2,18 +2,18 @@
 A TeamSystemTest is a test class for testing the behavior of TeamSystem
 "
 Class {
-	#name : #TeamSystemTest,
+	#name : #TeamManagementSystemTest,
 	#superclass : #TestCase,
 	#instVars : [
 		'person',
 		'anotherPerson',
 		'rootSystem'
 	],
-	#category : #'TeamsAPI-Core-Tests'
+	#category : #'TeamsAPI-Core-Tests-Systems'
 }
 
 { #category : #running }
-TeamSystemTest >> setUp [
+TeamManagementSystemTest >> setUp [
 	super setUp.
 	person := Person
 		named: 'Lucas'
@@ -25,18 +25,18 @@ TeamSystemTest >> setUp [
 		withEmailAddress: '[email protected]'.
 	rootSystem := CompositeSystem new.
 	rootSystem
-		register: PersonSystem new;
-		register: TeamSystem new;
+		register: PeopleManagementSystem new;
+		register: TeamManagementSystem new;
 		startUp
 ]
 
 { #category : #tests }
-TeamSystemTest >> teamSystem [
+TeamManagementSystemTest >> teamSystem [
 	^ rootSystem systemImplementing: #TeamSystemInterface
 ]
 
 { #category : #tests }
-TeamSystemTest >> testAddTeam [
+TeamManagementSystemTest >> testAddTeam [
 	| team teamSystem |
 	team := Team
 		named: 'Linces'
@@ -49,7 +49,7 @@ TeamSystemTest >> testAddTeam [
 ]
 
 { #category : #tests }
-TeamSystemTest >> testDeleteATeamAlreadyDeleted [
+TeamManagementSystemTest >> testDeleteATeamAlreadyDeleted [
 	| team teamSystem |
 	team := Team
 		named: 'Linces'
@@ -71,7 +71,7 @@ TeamSystemTest >> testDeleteATeamAlreadyDeleted [
 ]
 
 { #category : #tests }
-TeamSystemTest >> testDeleteTeam [
+TeamManagementSystemTest >> testDeleteTeam [
 	| team teamSystem |
 	team := Team
 		named: 'Linces'
@@ -86,7 +86,7 @@ TeamSystemTest >> testDeleteTeam [
 ]
 
 { #category : #tests }
-TeamSystemTest >> testFailToAddTeamWithNamedAlreadyUsed [
+TeamManagementSystemTest >> testFailToAddTeamWithNamedAlreadyUsed [
 	| team teamWithSameName teamSystem |
 	team := Team
 		named: 'Linces'
@@ -109,6 +109,6 @@ TeamSystemTest >> testFailToAddTeamWithNamedAlreadyUsed [
 ]
 
 { #category : #tests }
-TeamSystemTest >> testGetTeamsOnEmptySystem [
+TeamManagementSystemTest >> testGetTeamsOnEmptySystem [
 	self assert: self teamSystem teams isEmpty
 ]

source/TeamsAPI-Core-Tests/TeamTest.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'defaultPerson'
 	],
-	#category : #'TeamsAPI-Core-Tests'
+	#category : #'TeamsAPI-Core-Tests-Model'
 }
 
 { #category : #initialization }

source/TeamsAPI-Core/ManifestTeamsAPISystem.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #ManifestTeamsAPISystem,
 	#superclass : #PackageManifest,
-	#category : #'TeamsAPI-Core'
+	#category : #'TeamsAPI-Core-Systems'
 }
 
 { #category : #'class initialization' }