tests/testthat/test-permissions.R

In cabinets: Project Specific Workspace Organization Templates

context("permission checking")

test_that("permission is granted", {
  options("cabinet.testing" = TRUE)
  options("cabinet.testingPerm" = TRUE)

  cli::cli_div(theme = list(".alert-success" = list(before = "PASSING ")))
  verify_output(test_path("test-permission-granted.txt"), {
    ask_permission()
  })
})

test_that("permission is denied", {
    options("cabinet.testing" = TRUE)
    options("cabinet.testingPerm" = FALSE)

    expect_error(ask_permission())
})

test_that("check permission catches permission", {
    options("cabinets.permission" = FALSE)
    expect_error(check_permissions())

    options("cabinets.permission" = TRUE)

    cli::cli_div(theme = list(".alert-success" = list(before = "PASSING ")))
    verify_output(test_path("test-checking-permissions.txt"), {
      check_permissions()
    })

    options("cabinets.permission" = NULL)
    options("cabinet.testing" = TRUE)
    options("cabinet.testingPerm" = FALSE)
    expect_error(check_permissions())
})

test_that("permission functions work", {
  opts <- options()
  expect_error(perm_no())
  options(opts)
})