tests/testthat/test_2_log.R

context("adddot2logfile")
test_that("add dot also works when the file doesn't exist yet", {
    logfile <- tempfile(fileext = ".log")
    # Need to first create the temporary directory , otherwise R complains with a message similar to this
    # cannot open file '/tmp/RtmpYaFeSR/file3d1b61f9b484.log': No such file or directory
    if(!file.exists(tempdir())) dir.create(tempdir())
    adddot2logfile(logfile)
})


context("writeerror2log")
test_that("writeerror2log creates a folder when the given logfile location folder doesn't exist",{
    logfile <- file.path(tempdir(), paste0("f",runif(1)), "error.log")
    writeerror2log("error", logfile)
})
EuropeanForestInstitute/tradeflows documentation built on Oct. 8, 2018, 10:05 a.m.