tests/testthat/test_chatbot.R

In paws.end.user.computing: 'Amazon Web Services' End User Computing Services

svc <- paws.end.user.computing::chatbot()

test_that("describe_chime_webhook_configurations", {
  skip_on_cran()
  expect_error(svc$describe_chime_webhook_configurations(), NA)
})

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

test_that("describe_slack_channel_configurations", {
  skip_on_cran()
  expect_error(svc$describe_slack_channel_configurations(), NA)
})

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

test_that("describe_slack_user_identities", {
  skip_on_cran()
  expect_error(svc$describe_slack_user_identities(), NA)
})

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

test_that("describe_slack_workspaces", {
  skip_on_cran()
  expect_error(svc$describe_slack_workspaces(), NA)
})

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

test_that("list_custom_actions", {
  skip_on_cran()
  expect_error(svc$list_custom_actions(), NA)
})

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

test_that("list_microsoft_teams_channel_configurations", {
  skip_on_cran()
  expect_error(svc$list_microsoft_teams_channel_configurations(), NA)
})

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

test_that("list_microsoft_teams_configured_teams", {
  skip_on_cran()
  expect_error(svc$list_microsoft_teams_configured_teams(), NA)
})

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

test_that("list_microsoft_teams_user_identities", {
  skip_on_cran()
  expect_error(svc$list_microsoft_teams_user_identities(), NA)
})

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