tests/testthat/test-board_connect-mocks.R

In rstudio/pins: Pin, Discover, and Share Resources

test_that("rsc_content_find correctly filters multiple results by owner name", {
  local_mocked_bindings(
    rsc_GET = function(board, path, query) {
      list(
        list(
          name = "penguins",
          owner_guid = "taylor_guid",
          guid = "bad_content_guid",
          content_url = "wrong.url"
        ),
        list(
          name = "penguins",
          owner_guid = "toph_guid",
          guid = "good_content_guid",
          content_url = "correct.url"
        )
      )
    },
    rsc_user_name = function(board, guid) {
      c(taylor_guid = "taylor", toph_guid = "toph")[[guid]]
    }
  )
  found <- rsc_content_find("a board", "toph/penguins")
  expect_identical(found, list(guid = "good_content_guid", url = "correct.url"))
})