tests/testthat/test-legacy_gcloud.R

In pins: Pin, Discover and Share Resources

skip_if_not_installed("mime")

test_that("board contains proper gcloud headers", {
  headers <- names(gcloud_headers(list(token = "abc"), "PUT", "x", "files/hello.txt")$headers)

  expect_true("Content-Type" %in% headers)
  expect_true("Authorization" %in% headers)
})

# Live API ---------------------------------------------------------------------

skip_if_missing_envvars("legacy_gcloud()", "TEST_GOOGLE_BUCKET")

board <- legacy_gcloud(
  bucket = Sys.getenv("TEST_GOOGLE_BUCKET"),
  cache = tempfile()
)
board_test(board, suite = "default")

board <- legacy_gcloud(
  bucket = Sys.getenv("TEST_GOOGLE_BUCKET"),
  versions = TRUE,
  cache = tempfile()
)
board_test(board, suite = "versions")