tests/testthat/test-download_forcis_db.R

with_mock_dir("download_forcis_db", {
  skip()

  ## Data for tests ----

  forcis_meta <- get_version_metadata(version = "08")
  forcis_files <- forcis_meta$"files"

  ## download_forcis_db() ----

  test_that("Test download_forcis_db() for success", {
    create_tempdir()

    dir.create(file.path("forcis-db", "version-08"), recursive = TRUE)

    for (i in c(1:3, 5:8)) {
      invisible(file.create(file.path(
        "forcis-db",
        "version-08",
        forcis_files[i, "key"]
      )))
    }

    expect_message(download_forcis_db(
      path = ".",
      version = "08",
      check_for_update = FALSE,
      overwrite = FALSE,
      timeout = 300
    ))

    expect_true(file.exists(file.path(
      "forcis-db",
      "version-08",
      forcis_files[4, "key"]
    )))
  })
})
FRBCesab/forcis documentation built on April 14, 2025, 9:34 a.m.