tests/testthat/test_resiliencehub.R

In paws.management: 'Amazon Web Services' Management & Governance Services

svc <- paws::resiliencehub()

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

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

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

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