tests/testthat/test-download_forcis_db.R

In FRBCesab/forcis: An R Client to Access the FORCIS Database

## 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"])))
})