tests/testthat/test_textract.R

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

svc <- paws::textract()

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

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

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

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