tests/testthat/test-check-vector-isGitRepo.R

In acidgenomics/goalie: Assertive Check Functions

test_that("isGitRepo", {
    x <- getwd()
    ok <- isGitRepo(x)
    expect_type(ok, "logical")
    ok <- isAGitRepo(x)
    expect_type(ok, "logical")
    ok <- allAreGitRepos(x)
    expect_type(ok, "logical")
    expect_false(isGitRepo(1L))
    expect_false(isAGitRepo(1L))
    expect_false(allAreGitRepos(1L))
})