tests/testthat/test_search.R

In seandavi/GEOquery: Get data from NCBI Gene Expression Omnibus (GEO)

test_that("returns_correct_structure_when_geo_accessible", {
  result <- searchFieldsGEO()

  expect_s3_class(result, "data.frame")
  expect_true(
    all(c("Name", "Description", "FullName") %in%
      colnames(result))
  )
})