tests/testthat/test-duckduck-answer.R

In dirkschumacher/duckduckr: Simple Client for the DuckDuckGo Instant Answer API

test_that("it works", {
  skip_on_cran()
  result <- duckduck_answer("ggplot", app_name = "duckduckr_development")
  expect_true(is.list(result))
  expect_true(length(result) > 0)
  expect_equal("OK", attr(result, "status"))
})