tests/testthat/test-git-branch.R

In gitr: A Lightweight API for 'Git'

# Setup ----
skip_if_not(is_git())
dir <- local_create_worktree()


# Testing ----
test_that("`git_default_br()` returns proper default", {
  expect_equal(git_default_br(), "main")
})

test_that("`git_current_br()` returns proper default", {
  expect_equal(git_current_br(), "gitr-test-br")  # default
  new_br <- "wip-foo"
  withr::defer({
    git("checkout", "gitr-test-br")  # when finished; jump back to orig br
    git("branch", "-D", new_br)      # and then delete the 'new_br' branch
  })
  git_checkout(new_br)
  expect_equal(git_current_br(), new_br)
})