tests/testthat/test_translate.R

svc <- paws::translate()

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

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

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

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

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

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

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

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

Try the paws.machine.learning package in your browser

Any scripts or data that you put into this service are public.

paws.machine.learning documentation built on Sept. 12, 2023, 1:14 a.m.