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))
})
jemus42/tauturri documentation built on Feb. 7, 2024, 2 a.m.