tests/testthat/test_vpclattice.R

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

svc <- paws::vpclattice()

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

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

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

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

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