tests/testthat/test-01-download.R

In pachamaltese/constitucionabierta: Base de Datos de Facil Acceso del Encuentros Locales Autoconcados en el marco del proceso de consulta de una Nueva Constitucion

context("Download")

olddir <- Sys.getenv("CONSTITUCION_BBDD_DIR")
Sys.setenv(CONSTITUCION_BBDD_DIR = normalizePath(file.path(getwd(), "constitucionabierta"),
                                          mustWork = FALSE
))

test_that("Download succeeds", {
  skip_on_cran()
  constitucion_descargar_base()
  expect_true(constitucion_estado())
})

Sys.setenv(CONSTITUCION_BBDD_DIR = olddir)