tests/testthat/test_servicecatalog.R

svc <- paws::servicecatalog()

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

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

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

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

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

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

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

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

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

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

Try the paws.management package in your browser

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

paws.management documentation built on Aug. 23, 2021, 9:11 a.m.