Add mock tests

Author: nealrichardson

R/content.R

@@ -341,27 +341,21 @@ Content <- R6::R6Class(
         parser = NULL
       )
       if (httr::status_code(resp) == 404) {
-        resp <- NULL
-      } else {
-        con$raise_error(resp)
-        resp <- httr::content(resp, as = "parsed")
+        # 404 means there is no repository set
+        return(NULL)
       }
-      resp
+      con$raise_error(resp)
+      httr::content(resp, as = "parsed")
     },
     #' @description Adjust Git polling.
     #' @param polling Polling enabled.
     repo_enable = function(polling = TRUE) {
       con <- self$get_connect()
       guid <- self$get_content()$guid
-      resp <- con$PATCH(
+      con$PATCH(
         v1_url("content", guid, "repository"),
         body = list(polling = polling)
       )
-      if (httr::status_code(resp) == 404) {
-        stop("This content item is not git-backed")
-      }
-      con$raise_error(resp)
-      httr::content(resp, as = "parsed")
     },
     #' @description Adjust Git repository
     #' @param repository Git repository URL
@@ -380,7 +374,7 @@ Content <- R6::R6Class(
         body = list(
           repository = repository,
           branch = branch,
-          directory = subdirectory,
+          directory = directory,
           polling = polling
         )
       )

tests/testthat/2024.08.0/__api__/v1/content/c3426b0b/README.md

@@ -1 +1,3 @@
-This content item returns 403 errors when setting and deleting vanity URLs.
+This content item returns 403 errors when setting and deleting vanity URLs.
+
+It is also not git-backed, so repository is a 404

tests/testthat/2024.08.0/__api__/v1/content/c3426b0b/repository.R

@@ -0,0 +1,10 @@
+structure(
+  list(
+    url = "__api__/v1/content/c3426b0b/repository",
+    status_code = 404L,
+    content = charToRaw(
+      "{}"
+    )
+  ),
+  class = "response"
+)

tests/testthat/2024.08.0/__api__/v1/content/f2f37341/repository.json

@@ -0,0 +1,8 @@
+{
+  "repository": "https://github.com/dbkegley/rsc-sample-content",
+  "branch": "main",
+  "directory": "local/python-shiny",
+  "polling": true,
+  "last_error": "thread caused non-unwinding panic. aborting. (signal: aborted (core dumped))",
+  "last_known_commit": "5e69ff238376182fa7ed38b30497d457684c6e24"
+}

tests/testthat/test-git.R

@@ -39,8 +39,36 @@ without_internet({
 })
 
 with_mock_api({
-  test_that("we can retrieve a content item", {
+  test_that("we can retrieve a repository information if it exists", {
     con <- Connect$new(server = "https://connect.example", api_key = "fake")
     item <- content_item(con, "f2f37341-e21d-3d80-c698-a935ad614066")
+    expect_true(item$repository()$polling)
+  })
+
+  test_that("repository is null if it is not set", {
+    con <- Connect$new(server = "https://connect.example", api_key = "fake")
+    item <- content_item(con, "c3426b0b-e21d-3d80-c698-a935ad614066")
+    expect_null(item$repository())
+  })
+
+  test_that("we can set a repository", {
+    con <- Connect$new(server = "https://connect.example", api_key = "fake")
+    item <- content_item(con, "c3426b0b-e21d-3d80-c698-a935ad614066")
+    expect_PUT(
+      item$repo_set(repository = "https://github.com/posit-dev/connectapi"),
+      "https://connect.example/__api__/v1/content/c3426b0b/repository",
+      '{"repository":"https://github.com/posit-dev/connectapi",',
+      '"branch":"main","directory":".","polling":false}'
+    )
+  })
+
+  test_that("we can enable polling", {
+    con <- Connect$new(server = "https://connect.example", api_key = "fake")
+    item <- content_item(con, "f2f37341-e21d-3d80-c698-a935ad614066")
+    expect_PATCH(
+      item$repo_enable(TRUE),
+      "https://connect.example/__api__/v1/content/f2f37341-e21d-3d80-c698-a935ad614066/repository",
+      '{"polling":true}'
+    )
   })
 })