List repository projects (#365)

* add GET list project in a repository

* updated doc

* added test

* Update docs/docs/project.md

Author: anamariamv

docs/docs/project.md

@@ -15,6 +15,7 @@ Github4s supports the [Project API](https://developer.github.com/v3/projects/).
 with Github4s, you can interact with:
 
 - [Project](#project)
+  - [List repository projects](#list-repository-projects)
   - [List projects](#list-projects)
   - [Columns](#columns)
     - [List project columns](#list-project-columns)
@@ -37,6 +38,36 @@ LiftIO syntax for `cats.Id` and `Future` are provided in `GithubIOSyntax`.
 
 ## Project
 
+### List repository projects
+
+You can list the projects for a particular repository with `listProjectsRepository`; it takes as arguments:
+
+- `owner`: name of the owner for which we want to retrieve the projects.
+- `repo`: name of the repository for which we want to retrieve the projects.
+- `state`: filter projects returned by their state. Can be either `open`, `closed`, `all`. Default: `open`, optional
+- `pagination`: Limit and Offset for pagination, optional.
+- `header`: headers to include in the request, optional.
+
+To list the projects for owner `47deg` and repository `github4s`:
+
+```scala mdoc:compile-only
+val listProjectsRepository = Github[IO](accessToken).projects.listProjectsRepository(
+    owner = "47deg",
+    repo = "github4s",
+    headers = Map("Accept" -> "application/vnd.github.inertia-preview+json"))
+listProjectsRepository.unsafeRunSync() match {
+  case Left(e) => println(s"Something went wrong: ${e.getMessage}")
+  case Right(r) => println(r.result)
+}
+```
+
+The `result` on the right is the corresponding [List[Project]][project-scala].
+
+See [the API doc](https://developer.github.com/v3/projects/#list-repository-projects) for full reference.
+
+[project-scala]: https://github.com/47deg/github4s/blob/master/github4s/src/main/scala/github4s/domain/Project.scala
+
+
 ### List projects
 
 You can list the project for a particular organization with `listProjects`; it takes as arguments:

github4s/src/main/scala/github4s/algebras/Projects.scala

@@ -38,6 +38,25 @@ trait Projects[F[_]] {
       headers: Map[String, String] = Map()
   ): F[GHResponse[List[Project]]]
 
+  /**
+   * List the projects belonging to a specific repository
+   *
+   * @param owner      of the repo
+   * @param repo       name of the repo
+   * @param state      Filter projects returned by their state. Can be either `open`, `closed`, `all`.
+   *                   Default: `open`
+   * @param pagination Limit and Offset for pagination
+   * @param headers    Optional user headers to include in the request
+   * @return GHResponse with lists the projects in a repository.
+   */
+  def listProjectsRepository(
+      owner: String,
+      repo: String,
+      state: Option[String] = None,
+      pagination: Option[Pagination] = None,
+      headers: Map[String, String] = Map()
+  ): F[GHResponse[List[Project]]]
+
   /**
    * List the columns belonging to a specific project id
    *

github4s/src/main/scala/github4s/interpreters/ProjectsInterpreter.scala

@@ -42,6 +42,21 @@ class ProjectsInterpreter[F[_]](
       pagination
     )
 
+  override def listProjectsRepository(
+      owner: String,
+      repo: String,
+      state: Option[String],
+      pagination: Option[Pagination],
+      headers: Map[String, String]
+  ): F[GHResponse[List[Project]]] =
+    client.get[List[Project]](
+      accessToken,
+      s"repos/$owner/$repo/projects",
+      headers,
+      state.fold(Map.empty[String, String])(s => Map("state" -> s)),
+      pagination
+    )
+
   override def listColumns(
       project_id: Int,
       pagination: Option[Pagination],

github4s/src/test/scala/github4s/integration/GHProjectsSpec.scala

@@ -44,6 +44,48 @@ trait GHProjectsSpec extends BaseIntegrationSpec {
     testIsLeft(response)
   }
 
+  "Project >> ListProjectsRepository" should "return the expected projects when a valid owner and repo are provided" taggedAs Integration in {
+    val response =
+      Github[IO](accessToken).projects
+        .listProjectsRepository(
+          validRepoOwner,
+          validRepoName,
+          headers = headerUserAgent ++ headerAccept
+        )
+        .unsafeRunSync()
+
+    testIsRight[List[Project]](response, { r =>
+      r.result.nonEmpty shouldBe true
+      r.statusCode shouldBe okStatusCode
+    })
+  }
+
+  it should "return error when an invalid repo is passed" taggedAs Integration in {
+    val response =
+      Github[IO](accessToken).projects
+        .listProjectsRepository(
+          validRepoOwner,
+          invalidRepoName,
+          headers = headerUserAgent ++ headerAccept
+        )
+        .unsafeRunSync()
+
+    testIsLeft(response)
+  }
+
+  it should "return error when an invalid owner is passed" taggedAs Integration in {
+    val response =
+      Github[IO](accessToken).projects
+        .listProjectsRepository(
+          invalidRepoOwner,
+          validRepoName,
+          headers = headerUserAgent ++ headerAccept
+        )
+        .unsafeRunSync()
+
+    testIsLeft(response)
+  }
+
   "Project >> ListColumns" should "return the expected column when a valid project id is provided" taggedAs Integration in {
     val response =
       Github[IO](accessToken).projects

github4s/src/test/scala/github4s/unit/ProjectSpec.scala

@@ -43,6 +43,29 @@ class ProjectSpec extends BaseSpec {
 
   }
 
+  "Project.listProjectsRepository" should "call to httpClient.get with the right parameters" in {
+
+    val response: IO[GHResponse[List[Project]]] =
+      IO(Right(GHResult(List(project), okStatusCode, Map.empty)))
+
+    implicit val httpClientMock = httpClientMockGet[List[Project]](
+      url = s"repos/$validRepoOwner/$validRepoName/projects",
+      headers = headerAccept,
+      response = response
+    )
+
+    val projects = new ProjectsInterpreter[IO]
+
+    projects.listProjectsRepository(
+      validRepoOwner,
+      validRepoName,
+      None,
+      None,
+      headers = headerUserAgent ++ headerAccept
+    )
+
+  }
+
   "Project.listColumns" should "call to httpClient.get with the right parameters" in {
 
     val response: IO[GHResponse[List[Column]]] =