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))
})
inSileco/inSilecoMisc documentation built on Sept. 14, 2022, 5:44 a.m.