tests/testthat/test-finalize-version.R

In fledge: Smoother Change Tracking and Versioning for R Packages

test_that("finalize_version(push = FALSE)", {
  news_tempdir <- withr::local_tempdir(pattern = "news")

  with_demo_project(quiet = TRUE, {
    use_r("bla")
    gert::git_add("R/bla.R")
    gert::git_commit("* Ad cool bla.")
    shut_up_fledge(bump_version())

    news <- readLines("NEWS.md")
    news <- sub("Ad cool", "Add cool", news)
    writeLines(news, "NEWS.md")

    expect_snapshot(finalize_version(push = FALSE), variant = rlang_version())
    file.copy("NEWS.md", file.path(news_tempdir, "NEWS-push-false.md"))
  })

  expect_snapshot_file(
    file.path(news_tempdir, "NEWS-push-false.md"),
    compare = compare_file_text
  )
})

test_that("finalize_version(push = TRUE)", {
  news_tempdir <- withr::local_tempdir(pattern = "news")

  with_demo_project(quiet = TRUE, {
    remote_url <- create_remote()
    use_r("bla")
    gert::git_add("R/bla.R")
    gert::git_commit("* Ad cool bla.")
    shut_up_fledge(bump_version())

    news <- readLines("NEWS.md")
    news <- sub("Ad cool", "Add cool", news)
    writeLines(news, "NEWS.md")

    expect_snapshot(finalize_version(push = TRUE), variant = rlang_version())
    file.copy("NEWS.md", file.path(news_tempdir, "NEWS-push-true.md"))
    expect_snapshot(show_tags(remote_url))
    expect_snapshot(show_files(remote_url))
  })

  expect_snapshot_file(
    file.path(news_tempdir, "NEWS-push-true.md"),
    compare = compare_file_text
  )
})