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") })
Generated by dwww version 1.15 on Fri May 24 06:58:56 CEST 2024.