tests/testthat/test_polly.R

In paws.machine.learning: 'Amazon Web Services' Machine Learning Services

svc <- paws::polly()

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

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

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

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