tests/testthat/test_codeconnections.R

In paws.developer.tools: 'Amazon Web Services' Developer Tools Services

svc <- paws::codeconnections()

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

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

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

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

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

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