tests/testthat/test_ecr.R

In paws.compute: 'Amazon Web Services' Compute Services

svc <- paws::ecr()

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

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

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