tests/testthat/test_c_new_branch.R

In inbo/checklist: A Thorough and Strict Set of Checks for R Packages and Source Code

test_that("new_branch() creates a branch from the main branch", {
  origin_path <- tempfile("new_branch_origin")
  dir.create(origin_path)
  defer(unlink(origin_path, recursive = TRUE))

  path <- tempfile("new_branch")
  dir.create(path)
  defer(unlink(path, recursive = TRUE))

  origin_repo <- git_init(path = origin_path, bare = TRUE)
  repo <- gert::git_clone(url = origin_path, path = path, verbose = FALSE)

  git_config_set(name = "user.name", value = "junk", repo = repo)
  git_config_set(name = "user.email", value = "junk@inbo.be", repo = repo)


  writeLines("foo", path(path, "junk.txt"))
  git_add("junk.txt", repo = repo)
  initial <- gert::git_commit(message = "Initial commit", repo = repo)
  branch_info <- git_branch_list(repo = repo)
  refspec <- branch_info$ref[branch_info$name == git_branch(repo = repo)]
  git_push(
    remote = "origin", refspec = refspec, set_upstream = TRUE, repo = repo,
    verbose = FALSE
  )
  git_branch_create(branch = "branch", checkout = TRUE, repo = repo)
  writeLines("foo", path(path, "junk2.txt"))
  git_add("junk2.txt", repo = repo)
  junk <- gert::git_commit(message = "branch commit", repo = repo)
  git_push(
    remote = "origin", set_upstream = TRUE, repo = repo, verbose = FALSE,
    refspec = "refs/heads/branch"
  )
  expect_invisible(
    new_branch("new", checkout = TRUE, repo = path, verbose = FALSE)
  )
  expect_identical(git_branch(repo = repo), "new")
  expect_identical(git_commit_id(repo = repo), initial)
  expect_invisible(
    new_branch(branch = "new2", checkout = TRUE, repo = repo, verbose = FALSE)
  )
  expect_identical(git_branch(repo = repo), "new2")
  expect_identical(git_commit_id(repo = repo), initial)
})