tests/testthat/test-ignore.R

In gert: Simple Git Client for R

test_that("can check that files are ignored", {
  repo <- git_init(tempfile("gert-tests-open"))
  writeLines(c(
    "*.so",
    "!foo.so",
    "some-file",
    "directory/"),
    file.path(repo, ".gitignore"))
  expect_true(git_ignore_path_is_ignored("x.so", repo))
  expect_false(git_ignore_path_is_ignored("foo.so", repo))
  expect_true(git_ignore_path_is_ignored("some-file", repo))
  expect_false(git_ignore_path_is_ignored("some-file.txt", repo))
  expect_true(git_ignore_path_is_ignored("directory/a", repo))
  expect_equal(git_ignore_path_is_ignored(c("x.so", "foo.so"), repo),
               c(TRUE, FALSE))
  expect_equal(git_ignore_path_is_ignored(character(), repo), logical())
})