tests/testthat/d1_upload.R

In cboettig/dataone-lite: R interface to the DataONE RESTful API

library("dataonelite")
library("httr")

test_that("We can upload data to DataONE",
{
  data(nodes)
  f <- system.file("examples", "example-eml.xml", package="dataonelite")
  # cert file must be downloaded manually locally. We use a location within the package 
  # to simplify testing from within containers, which won't share `/tmp` with the host.
  cert <- system.file("tmp", "x509up_u1000", package="dataonelite")
  
  ## We can only test this function if we have a certificate
  if(length(cert) > 0){
    resp <- d1_upload(f, "boettiger", id=uuid::UUIDgenerate(), node = knb_test, cert=cert)
    expect_is(resp, "response")
    expect_equal(status_code(resp), 200)
  }
})