tests/testthat/test_ensemblGenomes.R

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

test_that("Error handling works", {
  
    skip_if_not_installed('mockery')
  
    expect_error(useEnsemblGenomes(), 
                 regex = "You must provide the argument 'biomart'")
  
    mockery::stub(useEnsemblGenomes,
         'listEnsemblGenomes',
         function(includeHosts, host) {
             data.frame(
               biomart = c("protists_mart", "fungi_mart"),
               version = c("Ensembl Protists Genes 48", "Ensembl Fungi Genes 48")
             )
         }
    )
    expect_error(useEnsemblGenomes(biomart = "plants_mart"),
                 regexp = "is not in the list of available Marts")
      
})

test_that("return type is correct", {
    expect_is(useEnsemblGenomes("protists_mart", "bnatans_eg_gene"), 
              "Mart")
})