tests/testthat/test_listspecies_output.R

In BgeeDB: Annotation and gene expression data retrieval from Bgee database. TopAnat, an anatomical entities Enrichment Analysis tool for UBERON ontology

context("expect_output")

test_that("Distinct species", {
  species <- listBgeeSpecies()
	expect_that( species, is_a("data.frame") )
  expect_that( ncol(species), equals(8) )
  expect_message(message("Query to Bgee webservice successful!"))
  expect_true( all(colnames(species) %in% c("ID", "GENUS",
                                            "SPECIES_NAME", "COMMON_NAME",
                                            "AFFYMETRIX", "EST",
                                            "IN_SITU", "RNA_SEQ")))
})