# Setup for using CDMConnector dataset with Achilles results pre-loaded

withr::local_envvar(
  R_USER_CACHE_DIR = tempfile(),
  .local_envir = teardown_env(),
  EUNOMIA_DATA_FOLDER = Sys.getenv("EUNOMIA_DATA_FOLDER", unset = tempfile())
)

datasetName <- "synpuf-1k"
cdmVersion <- "5.3"

tryCatch(
  if (Sys.getenv("skip_eunomia_download_test") != "TRUE") downloadEunomiaData(datasetName, cdmVersion, overwrite = TRUE),
  error = function(e) NA
)

server <- CDMConnector::eunomiaDir(datasetName, cdmVersion)

params <- list(
  connectionDetails = createConnectionDetails("duckdb", server = server),
  cdmDatabaseSchema = 'main',
  resultsDatabaseSchema = 'main',
  scratchDatabaseSchema = 'main',  # Required write schema for DED
  databaseId = datasetName,
  cdmVersion = cdmVersion,
  dqdJsonPath = testthat::test_path('dqd_synpuf-1k.json'),
  outputFolder = testthat::test_path(),
  baseUrl = NULL  # connection to WebAPI cannot be tested
)