tests/testthat/test_cloudwatchevents.R

svc <- paws::cloudwatchevents()

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

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

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

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

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

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

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

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

Try the paws.management package in your browser

Any scripts or data that you put into this service are public.

paws.management documentation built on Sept. 12, 2024, 6:19 a.m.