tests/testthat/test-sheet_delete.R

In jennybc/googlesheets2: Access Google Sheets using the Sheets API V4

# ---- nm_fun ----
me_ <- nm_fun("TEST-sheet_delete")

# ---- tests ----
test_that("sheet_delete() rejects invalid `sheet`", {
  expect_error(
    sheet_delete(as_sheets_id("123"), sheet = TRUE),
    "must be either"
  )
})

test_that("sheet_delete() works", {
  skip_if_offline()
  skip_if_no_token()

  ss <- local_ss(me_())

  sheet_add(ss, c("alpha", "beta", "gamma", "delta"))

  expect_no_error(
    sheet_delete(ss, 1)
  )
  expect_no_error(
    sheet_delete(ss, "gamma")
  )
  expect_no_error(
    sheet_delete(ss, list("alpha", 2))
  )

  sheets_df <- sheet_properties(ss)

  expect_identical(sheets_df$name, "delta")
})