tests/testthat/test_route53profiles.R

In paws.networking: 'Amazon Web Services' Networking & Content Delivery Services

svc <- paws::route53profiles()

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

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

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

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