tests/testthat/test_networkfirewall.R

In paws.networking: 'Amazon Web Services' Networking & Content Delivery Services

svc <- paws::networkfirewall()

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

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

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

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

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

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

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

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

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

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

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

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

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

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