tests/testthat/test_get_event_subscription.R

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

context("Get event subscription")

testthat::test_that("get_event_subscription() works (mock test)", {
  vcr::skip_if_vcr_off()
  subscriptionId <- 272
  vcr::use_cassette("get_event_subscription", {
    res <- get_event_subscription(subscriptionId, as = "xml", env = "staging")
  })
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  expect_true("subscription" %in% xml2::xml_name(xml2::xml_children(res)))
  children_found <- xml2::xml_name(
    xml2::xml_children(xml2::xml_children(res)[1]))
  children_expected <- c("id", "creator", "packageId", "url")
  expect_true(all(children_found %in% children_expected))
})

testthat::test_that("get_event_subscription() works", {
  skip_if_logged_out()
  packageId <- get_test_package()
  url <- "https://some.server.org"
  subscriptionId <- create_event_subscription(packageId, url, env = "staging")
  on.exit(delete_event_subscription(subscriptionId, env = "staging"))
  res <- get_event_subscription(subscriptionId, as = "xml", env = "staging")
  expect_true(all(class(res) %in% c("xml_document", "xml_node")))
  expect_true("subscription" %in% xml2::xml_name(xml2::xml_children(res)))
  children_found <- xml2::xml_name(
    xml2::xml_children(xml2::xml_children(res)[1]))
  children_expected <- c("id", "creator", "packageId", "url")
  expect_true(all(children_found %in% children_expected))
})