tests/testthat/test_lookoutequipment.R

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

svc <- paws::lookoutequipment()

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

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

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

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

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

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

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

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

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

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