tests/testthat/test-endpoint-override.R

In RAthena: Connect to 'AWS Athena' using 'Boto3' ('DBI' Interface)

test_that("Test set aws service endpoints", {
  
  expect_equal(set_endpoints(NULL),list())
  expect_equal(set_endpoints("dummy"),list(athena = "dummy"))
  expect_equal(set_endpoints(list(Athena="dummy")),list(athena = "dummy"))
  expect_equal(
    set_endpoints(list(athena="dummy.athena", s3="dummy.s3")), 
    list(athena="dummy.athena", s3="dummy.s3")
  )
  expect_equal(
    set_endpoints(list(athena="dummy.athena", s3="dummy.s3", glue = "dummy.glue")), 
    list(athena="dummy.athena", s3="dummy.s3", glue = "dummy.glue")
  )
})

test_that("Test unsupported aws services", {
  expect_error(
    set_endpoints(list(dummy="dummy")), 
    "The named list"
  )
  expect_error(
    set_endpoints(list()), 
    "endpoint_override needed to be a named list or character"
  )
})