# ---- nm_fun ---- me_ <- nm_fun("TEST-drive_share") nm_ <- nm_fun("TEST-drive_share", user_run = FALSE) # ---- clean ---- if (CLEAN) { drive_trash(c( nm_("mirrors-to-share"), nm_("DESC") )) } # ---- setup ---- if (SETUP) { drive_upload(system.file("DESCRIPTION"), nm_("DESC")) } # ---- tests ---- test_that("drive_share() errors for invalid `role` or `type`", { expect_snapshot(drive_share(dribble(), role = "chef"), error = TRUE) expect_snapshot(drive_share(dribble(), type = "pet"), error = TRUE) }) test_that("drive_share() adds permissions", { skip_if_no_token() skip_if_offline() defer_drive_rm(me_("mirrors-to-share")) file <- drive_upload( file.path(R.home("doc"), "BioC_mirrors.csv"), name = me_("mirrors-to-share") ) expect_false(file$drive_resource[[1]]$shared) file <- drive_share(file, role = "commenter", type = "anyone") expect_true(file$shared) perms <- file[["permissions_resource"]][[1]][["permissions"]] expect_setequal(map_chr(perms, "role"), c("owner", "commenter")) expect_setequal(map_chr(perms, "type"), c("user", "anyone")) })
Generated by dwww version 1.15 on Thu May 23 23:49:44 CEST 2024.