tests/testthat/test_listMarts.R

In grimbough/biomaRt: Interface to BioMart databases (i.e. Ensembl)

library(biomaRt)
cache <- file.path(tempdir(), "biomart_cache_test")
Sys.setenv(BIOMART_CACHE = cache)

###############################
context('listMarts()')
###############################

with_mock_dir("all_200", {
  test_that("listMarts returns a data.frame", {
      
      ensembl_marts <- listMarts(host = "https://www.ensembl.org")
      expect_is(ensembl_marts, class = "data.frame")
      expect_identical(colnames(ensembl_marts),
                       c("biomart", "version"))
      
  })
}, 
simplify = TRUE)

test_that("Error when archive = TRUE", {
    
    expect_error(listMarts(host = "https://www.ensembl.org", archive = TRUE),
                 regexp = "Use listEnsemblArchives")
       
})

test_that("Error when old URL is used", {
    
    expect_error(listMarts(host="www.biomart.org"))
    
})