tests/testthat/test-gene.R

In AndersenLab/wormbase-api:

test_that("data table returned is correct", {

  result <- wb_gene("pot-2")
  expect_true(nrow(result) == 1, TRUE)
  expect_true(ncol(result) == 5, TRUE)
})
test_that("gene cannot be found", {
  result <- wb_gene("crockpot-2")
  expect_true(nrow(result) == 0, TRUE)
  expect_message(wb_gene("crockpot-2"), "gene does not exist")

})
test_that("gene cannot be found in C. elegans", {
  result <- wb_gene("MAPK")
  expect_true(nrow(result) == 0, TRUE)
  expect_message(wb_gene("MAPK"), "gene not found in C. elegans")
})