tests/testthat/test-getCalculations.R

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

test_that("getCalculations works", {
  localConfig(globalenv = FALSE, .verbose = FALSE)
  expect_warning({
    x <- getCalculations(packages = "blub")
  }, "is not available")
  expect_null(x)

  xe <- structure(list(type = c("TauTotal", "Tau"), package = c("madrat", "madrat"),
                       call = c("madrat:::calcTauTotal", "madrat:::readTau")),
                  row.names = c(1L, 2L), class = "data.frame")
  expect_identical(getCalculations(c("calc", "read"), packages = "madrat"), xe)
})