tests/testthat/test-generic_backend.R

In connector: Streamlining Data Access in Clinical Research

test_that("Create a backend for generic backend", {
  only_one <- yaml_content_parsed |>
    purrr::pluck("datasources", 1, "backend")

  connection <- create_backend(only_one)

  expect_s3_class(connection, c("ConnectorFS", "R6"))

  ## Error because of params

  wrong_backend <- only_one
  wrong_backend$a_random_param <- "a_random_param"

  expect_error(create_backend(wrong_backend))

  # no path
  no_path <- only_one
  no_path$path <- NULL
  expect_error(create_backend_fs(no_path))

  # no drv

  expect_error(create_backend_dbi(only_one))
})