tests/testthat/test-shared_drives.R

In googledrive: An Interface to Google Drive

test_that("new_corpus() checks type and length, if not-NULL", {
  expect_silent(new_corpus())
  expect_silent(
    new_corpus(driveId = "1", corpora = "b", includeItemsFromAllDrives = FALSE)
  )
  expect_snapshot(new_corpus(driveId = c("1", "2")), error = TRUE)
  expect_snapshot(new_corpus(corpora = c("a", "b")), error = TRUE)
  expect_snapshot(new_corpus(includeItemsFromAllDrives = c(TRUE, FALSE)), error = TRUE)
})

test_that("`corpora` is checked for validity", {
  expect_silent(shared_drive_params(corpora = "user"))
  expect_silent(shared_drive_params(corpora = "allDrives"))
  expect_silent(shared_drive_params(corpora = "domain"))
  expect_snapshot(shared_drive_params(corpora = "foo"), error = TRUE)
})

test_that('`corpora = "drive"` requires shared drive specification', {
  expect_snapshot(shared_drive_params(corpora = "drive"), error = TRUE)
})

test_that('`corpora != "drive"` rejects shared drive specification', {
  expect_snapshot(
    shared_drive_params(corpora = "user", driveId = "123"),
    error = TRUE
  )
})

test_that("a shared drive can be specified w/ corpora", {
  expect_silent(shared_drive_params(corpora = "drive", driveId = "123"))
})

test_that('`corpora = "drive" is inferred from shared drive specification', {
  out <- shared_drive_params(driveId = "123")
  expect_identical(out$corpora, "drive")
})