tests/testthat/test-show-news.R

In devtools: Tools to Make Developing R Packages Easier

test_that("find_news() finds NEWS in all expected locations", {
  pkg <- local_package_create()

  dir_create(pkg, "inst")
  file_create(pkg, "inst", "NEWS")
  expect_equal(path_rel(find_news(pkg), pkg), path("inst/NEWS"))

  file_create(pkg, "NEWS")
  expect_equal(path_rel(find_news(pkg), pkg), path("NEWS"))

  file_create(pkg, "NEWS.md")
  expect_equal(path_rel(find_news(pkg), pkg), path("NEWS.md"))

  file_create(pkg, "inst", "NEWS.Rd")
  expect_equal(path_rel(find_news(pkg), pkg), path("inst/NEWS.Rd"))
})

test_that("fails when NEWS is missing or improperly formatted", {
  withr::local_options(lifecycle_verbosity = "quiet")
  skip_on_cran()
  skip_unless_r(">= 4.2.0") # different error message

  pkg <- local_package_create()
  expect_snapshot(show_news(pkg), error = TRUE)

  dir_create(pkg, "inst")
  file_create(pkg, "inst", "NEWS.Rd")

  expect_snapshot(show_news(pkg), error = TRUE)
})