tests/testthat/test_active.R

In BioInstaller: Integrator of Bioinformatics Resources

if (!dir.exists(tempdir())) {
  dir.create(tempdir())
}
test_that("is.biosoftwares.db.active",{ 
  tmp.dir <- normalizePath(tempdir(), "/")
  db <- sprintf('%s/test', tmp.dir)
  db <- normalizePath(db, "/", mustWork = FALSE)
  x <- is.biosoftwares.db.active(db)
  expect_that(x, equals(FALSE))
  set.biosoftwares.db(db)
  x <- do.call(is.biosoftwares.db.active, list(db))
  expect_that(x, equals(TRUE))
  unlink(db, recursive = TRUE, TRUE)
})