tests/testthat/test-connector.R

In connector: Streamlining Data Access in Clinical Research

test_that("can create Connector object", {
  connector_obj <- connectors(
    test = ConnectorFS$new(path = tempdir())
  )

  expect_s3_class(connector_obj, "connectors")

  expect_snapshot(connector_obj)

  expect_type(print_cnt, "closure")

  #####
  # Datasources
  #####

  # errors datasources:
  expect_error(
    connectors(
      datasources = "test"
    )
  )

  expect_error(datasources(NULL))
})