tests/testthat/test_eventbridgescheduler.R

In paws.application.integration: 'Amazon Web Services' Application Integration Services

svc <- paws::eventbridgescheduler()

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

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

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

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