tests/testthat/test-utils_git.R

In ropensci/gittargets: Data Version Control for the Targets Package

targets::tar_test("tar_git_add()", {
  skip_os_git()
  repo <- tempfile()
  dir.create(repo)
  gert::git_init(path = repo)
  writeLines("contents", file.path(repo, "file"))
  tar_git_add(files = "file", repo = repo)
  status <- gert::git_status(repo = repo)
  expect_equal(status$file, "file")
  expect_equal(status$status, "new")
  expect_true(status$staged)
})

targets::tar_test("tar_git_branch_checkout()", {
  skip_os_git()
  repo <- tempfile()
  dir.create(repo)
  gert::git_init(path = repo)
  writeLines("contents", file.path(repo, "file"))
  gert::git_add(files = "file", repo = repo)
  gert::git_commit(message = "msg", repo = repo)
  gert::git_branch_create(branch = "new_branch", repo = repo)
  tar_git_branch_checkout(branch = "new_branch", repo = repo, force = FALSE)
  expect_equal(gert::git_branch(repo = repo), "new_branch")
})

targets::tar_test("tar_git_branch_create()", {
  skip_os_git()
  repo <- tempfile()
  dir.create(repo)
  gert::git_init(path = repo)
  writeLines("contents", file.path(repo, "file"))
  gert::git_add(files = "file", repo = repo)
  gert::git_commit(message = "msg", repo = repo)
  branch <- gert::git_branch(repo = repo)
  tar_git_branch_create(branch = "new_branch", repo = repo)
  expect_equal(gert::git_branch(repo = repo), branch)
  expect_true("new_branch" %in% gert::git_branch_list(repo = repo)$name)
})

targets::tar_test("tar_git_commit()", {
  skip_os_git()
  repo <- tempfile()
  dir.create(repo)
  gert::git_init(path = repo)
  writeLines("contents", file.path(repo, "file"))
  gert::git_add(files = "file", repo = repo)
  tar_git_commit(message = "msg", repo = repo)
  status <- gert::git_status(repo = repo)
  expect_equal(nrow(status), 0L)
  log <- gert::git_log(repo = repo)
  expect_equal(trimws(log$message), "msg")
})

targets::tar_test("tar_git_commit_all()", {
  skip_os_git()
  repo <- tempfile()
  dir.create(repo)
  gert::git_init(path = repo)
  writeLines("contents", file.path(repo, "file"))
  gert::git_add(files = "file", repo = repo)
  gert::git_commit(message = "First commit", repo = repo)
  writeLines("new_contents", file.path(repo, "file"))
  tar_git_commit_all(message = "msg2", repo = repo)
  status <- gert::git_status(repo = repo)
  expect_equal(nrow(status), 0L)
  log <- gert::git_log(repo = repo)
  expect_true("msg2" %in% trimws(log$message))
})

targets::tar_test("tar_git_init_repo()", {
  skip_os_git()
  repo <- tempfile()
  dir.create(repo)
  tar_git_init_repo(path = repo)
  expect_true(file.exists(file.path(repo, ".git")))
})

targets::tar_test("tar_git_reset_hard()", {
  skip_os_git()
  repo <- tempfile()
  dir.create(repo)
  gert::git_init(path = repo)
  writeLines("contents", file.path(repo, "file"))
  gert::git_add(files = "file", repo = repo)
  gert::git_commit(message = "First commit", repo = repo)
  writeLines("new_contents", file.path(repo, "file"))
  expect_equal(readLines(file.path(repo, "file")), "new_contents")
  tar_git_reset_hard(repo = repo)
  expect_equal(readLines(file.path(repo, "file")), "contents")
})

targets::tar_test("data branch naming", {
  expect_equal(tar_git_branch_snapshot("x"), "code=x")
  expect_equal(tar_git_commit_code("code=x"), "x")
})

targets::tar_test("tar_git_gitignore_unstash()", {
  tmp <- tempfile()
  dir.create(tmp)
  from <- file.path(tmp, ".gitignore")
  to <- file.path(tmp, ".gittargets_gitignore")
  writeLines("*", from)
  tar_git_gitignore_stash(tmp)
  expect_equal(readLines(from), tar_git_gitignore_lines())
  expect_equal(readLines(to), "*")
  tar_git_gitignore_unstash(tmp)
  expect_false(file.exists(file.path(tmp, ".gittargets_gitignore")))
  expect_equal(readLines(from), "*")
})

targets::tar_test("tar_git_gitignore_restore(), stash .gitignore", {
  tmp <- tempfile()
  dir.create(tmp)
  from <- file.path(tmp, ".gitignore")
  to <- file.path(tmp, ".gittargets_gitignore")
  writeLines("*", from)
  tar_git_gitignore_stash(tmp)
  tar_git_gitignore_restore(tmp)
  expect_equal(readLines(from), "*")
})

targets::tar_test("tar_git_gitignore_restore(), no .gitignore", {
  tmp <- tempfile()
  dir.create(tmp)
  from <- file.path(tmp, ".gitignore")
  to <- file.path(tmp, ".gittargets_gitignore")
  writeLines("*", from)
  tar_git_gitignore_stash(tmp)
  unlink(from)
  tar_git_gitignore_restore(tmp)
  expect_equal(readLines(from), "*")
})

targets::tar_test("tar_git_binary()", {
  skip_os_git()
  old <- Sys.getenv("TAR_GIT")
  on.exit(Sys.setenv(TAR_GIT = old))
  Sys.setenv(TAR_GIT = "nope")
  expect_error(tar_git_binary(), class = "tar_condition_validate")
  file.create("nope")
  expect_equal(tar_git_binary(), "nope")
})