tests/testthat/test_athena.R

svc <- paws::athena()

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Try the paws.analytics package in your browser

Any scripts or data that you put into this service are public.

paws.analytics documentation built on Sept. 11, 2023, 5:06 p.m.