tests/testthat/test_master_txt.R

In johnaponte/repana: Repeatable Analysis in R

# Test for master_txt
# 20190702 by JJAV
# This may fail if make_structure is not ok
# # # # # # # # # # # # # # # # # # # # # #

context("Test for master_txt text")

test_that("master_txt works fine", {
  curdir  = getwd()
  cat("\nCurrent directory: ", curdir,"\n")
  expect_true(file.exists(file.path(curdir,"02_prog_a.R")))
  tmpfile <- tempfile()
  dir.create(tmpfile)
  setwd(tmpfile)
  cat("\nTEMPORARY directory: ", tmpfile,"\n")

  make_structure()
  file.copy(from = dir(curdir, pattern = "^[0-9][0-9].*\\.R$", full.names = T), to = tmpfile)

  dfres <- master_txt()
  expect_true(file.exists("logs/00_clean.log"))
  expect_true(file.exists("logs/02_prog_a.log"))
  expect_true(file.exists("logs/03_prog_b.log"))
  expect_true(file.exists("logs/04_prog_c.log"))
  expect_true(file.exists("logs/05_prog_d.log"))
  expect_true(file.exists("logs/master.log"))
print(dfres)
  masterfile = read.delim("logs/master.log", stringsAsFactors = FALSE)
  expect_equal(masterfile$comments, c(":-)",":-)",":-)","FAIL",":-)"))

})

test_that("master_txt respects the start & stop arguments", {
  curdir  = getwd()
  cat("\nCurrent directory: ", curdir,"\n")
  tmpfile <- tempfile()
  dir.create(tmpfile)
  setwd(tmpfile)

  make_structure()
  expect_true(file.exists(file.path(curdir,"02_prog_a.R")))
  file.copy(from = dir(curdir, pattern = "^[0-9][0-9].*\\.R$", full.names = T), to = tmpfile)
  capture.output(master_txt(start = 3, stop = 4))
  expect_false(file.exists("logs/02_prog_a.log"))
  expect_true(file.exists("logs/03_prog_b.log"))
  expect_true(file.exists("logs/04_prog_c.log"))
  expect_false(file.exists("logs/05_prog_d.log"))
  expect_true(file.exists("logs/master.log"))
})