tests/testthat/test_controltower.R

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

svc <- paws::controltower()

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

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

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

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

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

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