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

In steinbaugh/goalie: Assertive Check Functions

skip_if_not_installed("AcidBase")

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(nocause(isGitRepo(1L)))
    expect_false(nocause(isAGitRepo(1L)))
    expect_false(nocause(allAreGitRepos(1L)))
})