tests/testthat/test-search.R

In jamie-ralph/statswalesr: Easily Extract Data from 'StatsWales'

context("Valid search term returns a dataframe")

test_search <- statswalesr::statswales_search("crop")

test_that("valid search terms return a dataset, if API is available", {
          expect_true(is.data.frame(test_search) | is.null(test_search))
          })

test_that("Non-character input throws an error", {
          expect_error(statswalesr::statswales_search(123))
          })