tests/testthat/test-search.R

context("test-search.R")

test_that("search kinda works", {
  res <- search_server(query = "Game of Thrones")
  expect_is(res, "list")
  expect_length(res, 8)
  expect_error(search_server("", "", query = "Wurst"))
  expect_error(search_server(query = NULL))
})

Try the tauturri package in your browser

Any scripts or data that you put into this service are public.

tauturri documentation built on May 2, 2019, 1:07 p.m.