tests/testthat/test_cloudtrail.R

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

svc <- paws::cloudtrail()

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

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

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

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

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

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

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

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

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

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