tests/testthat/test_arczonalshift.R

In paws.networking: 'Amazon Web Services' Networking & Content Delivery Services

svc <- paws::arczonalshift()

test_that("list_autoshifts", {
  expect_error(svc$list_autoshifts(), NA)
})

test_that("list_managed_resources", {
  expect_error(svc$list_managed_resources(), NA)
})

test_that("list_zonal_shifts", {
  expect_error(svc$list_zonal_shifts(), NA)
})