tests/testthat/test_sfn.R

In paws.application.integration: 'Amazon Web Services' Application Integration Services

svc <- paws::sfn()

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

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

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