tests/testthat/test_sns.R

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

svc <- paws::sns()

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

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

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

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

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

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

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

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