tests/testthat/test-options.R

In USCCANA/netdiffuseR: Analysis of Diffusion and Contagion Processes on Networks

context("Testing package .onLoad and options")
test_that("There should be diffnet options", {
  netdiffuseR:::.onLoad()
  expect_is(getOption("diffnet.self"), "logical")
  expect_is(getOption("diffnet.undirected"), "logical")
  expect_is(getOption("diffnet.multiple"), "logical")
  expect_is(getOption("diffnet.tol"), "numeric")
})