tests/testthat/test_memorydb.R

In paws.database: 'Amazon Web Services' Database Services

svc <- paws::memorydb()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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