tests/testthat/test-get_kmc_dir.R

In c5sire/kmerize: K-Mer Tools for Building Databases

context("Get kmc dir")
testthat::skip_on_appveyor()
testthat::skip_on_travis()
testthat::skip_on_cran()

kud <- kmerize:::get_kmc_dir()

to <- paste0(kud, "x")
file.rename(kud, to)


test_that("Dir is not found", {
  testthat::skip_on_appveyor()
  testthat::skip_on_travis()
  testthat::skip_on_cran()
  expect_true(
    kmerize:::get_kmc_dir() == kud
  )
})

context("Get kmc base")

test_that("Dir is found but not program", {
  testthat::skip_on_appveyor()
  testthat::skip_on_travis()
  testthat::skip_on_cran()
  expect_error(
    kmerize:::get_kmc_base()
  )
})



unlink(kud, recursive = TRUE, force = TRUE)
file.rename(to, kud)