tests/testthat/test-search_docs.R

In maurolepore/pkgdoc: Reference Documented R Objects Across Multiple Packages

context("search_docs")

test_that("returns the expected data structure", {
  cols <- c(
    "package",
    "libpath",
    "id",
    "name",
    "title",
    "topic",
    "encoding",
    "type",
    "alias",
    "keyword",
    "concept"
  )
  expect_named(
    result <- search_docs(), cols
  )
  expect_true(length(unique(result$package)) > 1)
  expect_is(result, "tbl")
})

test_that("can pick specific packages", {
  expect_length(unique(search_docs(c("base", "utils"))$package), 2)
})