tests/testthat/test-auto-pre.R

In cynkra/fledge: Smoother Change Tracking and Versioning for R Packages

test_that("plan_release() pre-flight checks", {
  withr::local_envvar("FLEDGE_TEST_NOGH" = "blop")
  withr::local_envvar("FLEDGE_DONT_BOTHER_CRAN_THIS_IS_A_TEST" = "yes-a-test")

  local_demo_project(quiet = TRUE)

  tempdir_remote <- withr::local_tempdir(pattern = "remote")
  create_remote(tempdir_remote)

  local_fledge_quiet()
  bump_version()

  use_r("blop")
  expect_fledge_snapshot(error = TRUE, {
    plan_release()
  })
})

test_that("plan_release() works", {
  withr::local_envvar("FLEDGE_TEST_NOGH" = "blop")
  withr::local_envvar("FLEDGE_FORCE_NEWS_MD" = "bla")
  withr::local_envvar("FLEDGE_DONT_BOTHER_CRAN_THIS_IS_A_TEST" = "yes-a-test")

  local_demo_project(quiet = TRUE)

  tempdir_remote <- withr::local_tempdir(pattern = "remote")
  create_remote(tempdir_remote)

  local_fledge_quiet()

  expect_fledge_snapshot({
    plan_release("next")
  })
  expect_true(gert::git_branch_exists("cran-0.0.1"))
})