tests/testthat/test_get_ids.R

In tpall/entrezquery: Runs entrez query and returns reults as a tibble

library(entrezquery)
context("getids")

test_that("character vector is returned", {
  expect_equal(class(get_ids('expression profiling by high throughput sequencing[DataSet Type]', db = 'gds', retmax = 4)), "character")
  expect_equal(length(get_ids('expression profiling by high throughput sequencing[DataSet Type]', db = 'gds', retmax = 4)), 4)
})