tests/testthat/test-01-wrp_search.R

In worldriskpollr: Aggregated Survey Data from the World Risk Poll

test_that("search works", {
  expected <- wrp_search(string = "violence")
  expect_s3_class(expected, "data.frame")
})

test_that("search doesn't work", {
  expected <- wrp_search(string = "david")
  expect_null(expected)
})