tests/testthat/test_changeMaintainer.R

In rdatsci/rt: R Tools for the Command Line

context("changeMaintainer")


test_that("changeMaintainer works with options", {
  path = "assets/package"
  temp_maintainer = "Joe Developer <Joe.Developer@some.domain.net>"
  options(rtcl.maintainer = temp_maintainer)
  new_path = changeMaintainer(path)
  desc = read.dcf(file.path(new_path, "DESCRIPTION"))
  expect_setequal(desc[1, "Maintainer"], temp_maintainer) # setequal to avoid name error
})

test_that("changeMaintainer works with config", {
  skip_on_cran()
  path = "assets/package"
  options(rtcl.maintainer = NULL)
  config_path = getConfigPath("config")
  if (!file.exists(config_path) && !dir.exists(dirname(config_path))) {
    temp_maintainer = "Joanna Developer <Joanna.Developer@some.domain.net>"
    dir.create(path = dirname(config_path), recursive = TRUE)
    writeLines(text = paste0('maintainer = "', temp_maintainer, '"'), con = config_path)
    new_path = changeMaintainer(path)
    desc = read.dcf(file.path(new_path, "DESCRIPTION"))
    expect_setequal(desc[1, "Maintainer"], temp_maintainer) # setequal to avoid name error
    unlink(dirname(config_path), recursive = TRUE)
  } else {
    temp_maintainer = readConfig()$maintainer
    if (!is.null(temp_maintainer)) {
      new_path = changeMaintainer(path)
      desc = read.dcf(file.path(new_path, "DESCRIPTION"))
      expect_setequal(desc[1, "Maintainer"], temp_maintainer) # setequal to avoid name error
    }
  }
})