tests/testthat/test_check_status_create.R

In EDIutils: An API Client for the Environmental Data Initiative Repository

context("Check status create")

testthat::test_that("check_status_create() works", {
  vcr::skip_if_vcr_off()
  transaction <- "create_163966765080210573__edi.595.1"
  # Wait
  vcr::use_cassette("check_status_create_wait", {
    res <- check_status_create(transaction, wait = TRUE, env = "staging")
  })
  expect_true(res)
  # Don't wait
  vcr::use_cassette("check_status_create", {
    res <- check_status_create(transaction, wait = FALSE, env = "staging")
  })
  expect_true(res)
})

testthat::test_that("check_status_create() works", {
  skip_if_logged_out()
  transaction <- "create_163966765080210573__edi.595.1"
  # Wait
  res <- check_status_create(transaction, wait = TRUE, env = "staging")
  expect_true(res)
  # Don't wait
  res <- check_status_create(transaction, wait = FALSE, env = "staging")
  expect_true(res)
})