tests/testthat/test.auth_request.R

In DataONEorg/rdataone: R Interface to the DataONE REST API

test_that("dataone library loads", {
	expect_true(require(dataone))
})

test_that("auth_get", {
  skip_on_cran()
  library(dataone)
  library(httr)
  library(XML)
  uri <- "https://cn.dataone.org/cn/v2/formats"
  format_list <- xmlParse(content(dataone:::auth_get(uri,node=CNode()), as="text"))
  cname <- class(format_list)[1]
  expect_match(cname, "XML")
  xml <- XML::saveXML(format_list)
  expect_true(grep("METADATA", xml) > 0)
  expect_true(grep("Ecological Metadata", xml) > 0)
})