tests/testthat/test-packagesUsed.R

context("packageUsed")

nm <-c("utils", "methods")
res <- packagesUsed(nm)


test_that("used package", {
  expect_error(packagesUsed("method"))
  expect_true(all(res$name == nm))
})
letiR/letiRmisc documentation built on Sept. 11, 2022, 12:43 a.m.