tests/testthat/test_networkmanager.R

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

svc <- paws::networkmanager()

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

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

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

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

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

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

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

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

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

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

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

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