tests/testthat/test_compartmentData.R

In JoWatson2011/subcellularvis: What the Package Does (One Line, Title Case)

genes <- c("MAPK1", "MAPK3")

test_that("genes not mapped returns null", {
  expect_null(compartmentData(c("madeupgene1", "madeupgene2")))
  expect_null(compartmentData(genes, organism = "Yeast"))
})

test_that("returns data frame",{
  expect_equal(class(compartmentData(genes)), "list")
  expect_equal(class(compartmentData(genes, bkgd = genes)), "list")
  expect_equal(class(compartmentData(genes, aspect ="Endosomal system")), "list")
  expect_equal(class(compartmentData(genes, subAnnots = T)), "list")
})

test_that("returns error if empty vector",{
  expect_error(compartmentData(""))
})