tests/testthat/test-yaml_yesno_truefalse.R

In wlandau/parallelRemake: Parallelize Remake-Style Workflows with Makefiles

# library(testthat); devtools::load_all(); 
context("yaml_yesno_truefalse")

test_that("Function yaml_yesno_truefalse is correct.", {
  testwd("yaml_yesno_truefalse-ok")
  expect_silent(parse_command(NULL))
  expect_true(is.list(yaml_load("x: yes")))
  expect_true(is.list(yaml_load("x: no")))
  for(i in 1:3){
    x = readLines(file.path("..", "test-yaml_yesno_truefalse", paste0("input", i, ".txt")))
    write(x, "out.txt")
    yaml_yesno_truefalse("out.txt")
    o1 = readLines("out.txt")
    o2 = readLines(file.path("..", "test-yaml_yesno_truefalse", paste0("output", i, ".txt")))
    expect_true(all(o1 == o2))
    unlink("out.txt")
  }
  testrm("yaml_yesno_truefalse-ok")
})