tests/testthat/test_servicediscovery.R

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

svc <- paws::servicediscovery()

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

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

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

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

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

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