/usr/share/doc/r-cran-gert/tests/testthat/test-open.R

dwww Home | Show directory contents | Find package

test_that("can opt out of recursive search", {
  repo <- git_init(tempfile("gert-tests-open"))
  on.exit(unlink(repo, recursive = TRUE))

  grandchild <- file.path(repo, "aaa", "bbb")
  dir.create(grandchild, recursive = TRUE)
  expect_error(git_open(I(grandchild)), class = "GIT_ENOTFOUND")
})

Generated by dwww version 1.15 on Sun Jun 16 20:15:57 CEST 2024.