tests/testthat/test_batch.R

In paws.compute: 'Amazon Web Services' Compute Services

svc <- paws::batch()

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

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

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

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