feat(BitbucketPullRequests): commits of a pull request (#18)

Evref-BL · Feb 6, 2025 · 2f17686 · 2f17686
1 parent f8b3d09
commit 2f17686
Show file tree

Hide file tree

Showing 2 changed files with 49 additions and 0 deletions.
diff --git a/src/BitbucketPharoAPI-Tests/BitbucketPullRequestsTest.class.st b/src/BitbucketPharoAPI-Tests/BitbucketPullRequestsTest.class.st
@@ -46,6 +46,45 @@ BitbucketPullRequestsTest >> testActivitiesOfInRepositoryOfProject [
 	self assert: result equals: pullRequestActivity
 ]
 
+{ #category : 'tests' }
+BitbucketPullRequestsTest >> testCommitsOfInRepositoryOfProject [
+
+	| hostUrl gitlabApi result client path bitbucketPullRequests pullRequestID projectKey repoSlug commit |
+	"Given"
+	hostUrl := 'www.url.com'.
+	client := ZnClient new.
+
+	gitlabApi := BitbucketApi new
+		             bearerToken: 'token';
+		             host: hostUrl;
+		             client: client.
+
+	bitbucketPullRequests := BitbucketPullRequests new bitbucketApi:
+		                         gitlabApi.
+
+	pullRequestID := 24.
+	projectKey := 'AAA'.
+	repoSlug := 'project'.
+
+	commit := { (#commitId -> 'id') }
+		                       asDictionary.
+
+	path := '/projects/' , projectKey , '/repos/' , repoSlug
+	        , '/pull-requests/' , pullRequestID asString , '/commits'.
+
+	(bitbucketPullRequests stub getAll: path withParams: Dictionary new)
+		willReturn: commit.
+
+	"When"
+	result := bitbucketPullRequests
+		          commitsOf: pullRequestID
+		          inRepository: repoSlug
+		          ofProject: projectKey.
+
+	"Then"
+	self assert: result equals: commit
+]
+
 { #category : 'tests' }
 BitbucketPullRequestsTest >> testCreateFromRefToRefInRepositoryOfProject [
 

diff --git a/src/BitbucketPharoAPI/BitbucketPullRequests.class.st b/src/BitbucketPharoAPI/BitbucketPullRequests.class.st
@@ -16,6 +16,16 @@ BitbucketPullRequests >> activitiesOf: pullRequestId inRepository: repositorySlu
 	^ self getAll: endpoint withParams: Dictionary new.
 ]
 
+{ #category : 'api - get' }
+BitbucketPullRequests >> commitsOf: pullRequestId inRepository: repositorySlug ofProject: projectKey [
+	"GET /rest/api/1.0/projects/{projectKey}/repos/{repositorySlug}/pull-requests/{pullRequestId}/commits"
+
+	| endpoint |
+	endpoint := '/projects/', projectKey, '/repos/', repositorySlug, '/pull-requests/', pullRequestId asString, '/commits'.
+
+	^self getAll: endpoint withParams: Dictionary new. 
+]
+
 { #category : 'api - post' }
 BitbucketPullRequests >> create: title fromRef: fromRefId toRef: toRefId inRepository: repositorySlug ofProject: projectKey [
 	"POST /rest/api/1.0/projects/{projectKey}/repos/{repositorySlug}/pull-requests"