tests/testthat/test-puc.R

In pik-piam/madrat: May All Data be Reproducible and Transparent (MADRaT) *

test_that("puc creation works", {
   skip_on_cran()
   retrieveData("example", rev = 42, extra = "test1")
   expect_true(dir.exists(getConfig("pucfolder")))
   withr::local_dir(getConfig("pucfolder"))
   expect_true(file.exists("rev42_extra_example_tag.puc"))
   untar("rev42_extra_example_tag.puc")
   expect_true(length(Sys.glob("calcTauTotal*.rds")) == 1)
   cfg <- readRDS("config.rds")
   expect_identical(cfg$package, "madrat")
   expect_identical(cfg$pucArguments, "extra")
   expect_identical(cfg$args, list(model = "example", rev = 42, dev = "", cachetype = "def",
                                   puc = TRUE, strict = FALSE, extra = "test1"))
   expect_error(pucAggregate("rev42_extra_example_tag.puc", bla = "blub"), "cannot be changed in the given puc")
   expect_message(pucAggregate("rev42_extra_example_tag.puc", extra = "blub", regionmapping = "regionmappingH12.csv",
                               renv = FALSE), "Run calcOutput")
   expect_message(pucAggregate("rev42_extra_example_tag.puc", extra = "blub", regionmapping = "regionmappingH12.csv",
                               renv = FALSE), "already available")
   expect_true(file.exists(file.path(getConfig("outputfolder"), "rev42_h12_7a5441e5_example_customizable_tag.tgz")))
   expect_message(retrieveData("example", rev = 42, extra = "test2", renv = FALSE), "Run pucAggregate")
   expect_true(file.exists(file.path(getConfig("outputfolder"), "rev42_h12_5f3d77a0_example_customizable_tag.tgz")))
})