tests/testthat/test-system-check-scalar-hasGithubPat.R

In acidgenomics/r-goalie: Assertive Check Functions

skip_if_not_installed("withr")

test_that("TRUE", {
    withr::with_envvar(
        new = c("GITHUB_PAT" = "XXX"),
        code = {
            ok <- hasGithubPat()
            expect_true(ok)
        }
    )
})

test_that("FALSE", {
    withr::with_envvar(
        new = c("GITHUB_PAT" = ""),
        code = {
            ok <- hasGithubPat()
            expect_false(ok)
        }
    )
})