tests/testthat/test_cloudhsmv2.R

In paws.security.identity: 'Amazon Web Services' Security, Identity, & Compliance Services

svc <- paws::cloudhsmv2()

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

test_that("describe_backups", {
  expect_error(svc$describe_backups(MaxResults = 20), NA)
})

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

test_that("describe_clusters", {
  expect_error(svc$describe_clusters(MaxResults = 20), NA)
})