tests/testthat/d1_info.R

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