tests/testthat/test-3-sending.R

In CannaData/docuSignr: Connect to 'DocuSign' API

context("Test docuSign envelope and URL for sending")

test_that("Retrieve envelope without error for signing", {
  skip_on_cran()
  skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
  login <<- docu_login(demo = TRUE)
  template_id <<- docu_templates(base_url = login[1, 3])$templateId
  expect_silent(envelope <<- docu_envelope(
    account_id = login[1, 2],
    base_url = login[1, 3],
    status = "created",
    template_id = template_id,
    template_roles = list(
      email = "carl@cannadatasolutions.com",
      name = "R-Test",
      roleName = "Patient"
    ),
    email_subject = "R-Test",
    email_blurb = "R-Test"
  ))
})

test_that("uri is returned", {
  skip_on_cran()
  skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
  expect_true(!is.null(envelope$uri))
})

test_that("Embed doesn't error", {
  skip_on_cran()
  skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
  expect_silent(URL <<- docu_embedded_send(
    base_url = login[1, 3],
    return_url = "https://www.google.com",
    uri = envelope$uri,
    signer_name = "R-Test",
    signer_email = "carl@cannadatasolutions.com",
    client_user_id = "1"
  ))
})

test_that("URL is legit", {
  skip_on_cran()
  skip_if_not(nchar(Sys.getenv("docuSign_integrator_key")) > 0)
  expect_true(!httr::http_error(URL))
})