tests/testthat/d1_search.R

library("httr")
test_that("We can search DataONE",
{
  resp <- d1_search("Wolkovich", "author")
  expect_is(resp, "response")
  expect_equal(status_code(resp), 200)
})
cboettig/dataone-lite documentation built on May 13, 2019, 2:06 p.m.