tests/testthat/test-chainfiles.r

In aaronwolen/liftover: liftover

context("Chain files")

test_that("chain file URLs are valid", {
  url1 <- chain_url(from = "hg18", to = "hg19")
  url2 <- chain_url(from = "mm8",  to = "mm9")
  url3 <- chain_url(from = "mm9",  to = "hg19")
  
  expect_true(url.exists(url1))
  expect_true(url.exists(url2))
  expect_true(url.exists(url3))
})


test_that("chain files downloaded successfully", {
  chain.url <- chain_url(from = "hg18", to = "hg19")
  chain.gz <- tempfile(fileext = ".chain.gz")
  chain.file <- sub(".gz", "", chain.gz)
  
  expect_false(file.exists(chain.file))
  expect_output(chain_download(chain.url, chain.file, quiet = TRUE), chain.file)
  expect_true(file.exists(chain.file))
})