tests/testthat/test-add_ro_fnd.R

In ropensci/rodev: Helper for rOpenSci Package Developpers

context("test-add_ro_fnd")

test_that("add_ro_fnd works", {
  d <- testthat::test_path("ok_description")
  fs::dir_copy(d, "testd2")
  on.exit(fs::dir_delete("testd2"))
  add_ro_fnd("testd2")
  expect_equal(format(desc::desc_get_authors("testd2")[2]),
               "rOpenSci [fnd] (https://ropensci.org/)" )
})

test_that("add_ro_fnd fails if no Authors@R", {
  d <- testthat::test_path("no_authors_at_R")
  expect_error(add_ro_fnd(d),
               "Your DESCRIPTION needs" )
})