tests/testthat/test-mismatch.R

In reproducibleRchunks: Automated Reproducibility Checks for R Markdown Documents

test_that("mismatch between hash options of stored data and defaults are caught",
          {
            options(reproducibleRchunks.hashing_algorithm = "sha256")
            mydata <- 1:10
            filename <- tempfile()
            reproducibleRchunks::save_repro_data(c("mydata"),
                                                 filename = filename,
                                                 filetype = "json")

            test_envir <- new.env()
            options(reproducibleRchunks.hashing_algorithm = "sha512")
            testthat::expect_error( reproducibleRchunks::load_repro_data(filename,
                                                 filetype = "json",
                                                 envir = test_envir)
            )

            options(reproducibleRchunks.hashing_algorithm = "sha256")
            reproducibleRchunks::load_repro_data(filename,
                                                                         filetype = "json",
                                                                         envir = test_envir)
            expect_identical(ls(test_envir), "mydata")
           # expect_identical(get("mydata", envir = test_envir),
            #                 digest::digest(mydata,algo = "sha256"))
            #// TODO  - unfinished

          })