tests/testthat/test-cnt_logger_integration.R

In connector: Streamlining Data Access in Clinical Research

test_that("ConnectorLogger integration test with whirl", {
  dir_tmp <- tempdir()
  dir.create(path = file.path(dir_tmp, "connector_whirl"))
  dir_ <- file.path(dir_tmp, "connector_whirl")
  # copy files for test
  file.copy(
    file.path(test_path("scripts"), "example.R"),
    file.path(dir_, "example.R")
  )

  file.copy(
    file.path(test_path("configs"), "_whirl.yml"),
    file.path(dir_, "_whirl.yml")
  )

  file.copy(
    file.path(test_path("configs"), "_whirl_connector.yml"),
    file.path(dir_, "_connector.yml")
  )

  withr::with_dir(dir_, {
    expect_no_error(
      whirl::run("_whirl.yml")
    )

    expect_equal(
      length(list.files(".")),
      5
    )
  })

  # Clean folder
  unlink(dir_, recursive = TRUE, force = TRUE)
})