tests/testthat/test_keep.r

In renlund/proh: pro(ject) h(enrik style)

context("testing 'keep' (zero tests)")

## if(FALSE){ # this does not work well...
## test_that("'keep' works", {
##    dir <- paste0("TMP_DIR__", paste( sample(c(letters,LETTERS,0:9), size=2^6, replace = TRUE), collapse=""))
##    dir.create(path = dir)
##    old_dir <- setwd(dir)
##    dir.create("calc")
##    dir.create("calc/autoload")
##    test <- 1
##    keep("test")
##    if(as.character(Sys.info()['sysname']) == "Windows") expect_equal(list.files("calc/"), c("autoload", "test.rdat"))
##    a <- "string"
##    A <- "another_string"
##    keep("a")
##    if(as.character(Sys.info()['sysname']) == "Windows") expect_error(keep("A"))
##    setwd(old_dir)
##    unlink(x = dir, recursive = TRUE)
## })
## }