inst/runit_tests/runit-makefile.R

In fakemake: Mock the Unix Make Utility

test_provide_makefile <- function() {
    old <- setwd(tempdir())
    on.exit(setwd(old))
    result <- provide_make_list(type = "minimal")
    expectation <- list(list(target = "all.Rout",
                             prerequisites = c("a1.Rout", "a2.Rout"
                                               ), code = "print(\"all\")"),
                        list(target = "a2.Rout", prerequisites = NULL,
                             code = "print(\"a2\")"),
                        list(target = "a1.Rout", prerequisites = "b1.Rout",
                             code = "print(\"a1\")"),
                        list(target = "b1.Rout", prerequisites = NULL,
                             code = "print(\"b1\")"))
    expectation <- fakemake:::parse_make_list(expectation)
    RUnit::checkIdentical(result, expectation)
}

test_write_makefile <- function() {
    old <- setwd(tempdir())
    on.exit(setwd(old))
    path <- tempfile()
    makefile <- provide_make_list(type = "minimal")
    write_makefile(makefile, path = path)
    result <- readLines(path)
    expectation <- readLines(system.file("templates", "Makefile_minimal",
                               package = "fakemake"))
    # There's version info in comments due to change, so get rid of the
    # comments:
    expectation <- grep("^#.*$", expectation, invert = TRUE, value = TRUE)
    result <- grep("^#.*$", result, invert = TRUE, value = TRUE)
    RUnit::checkIdentical(result, expectation)
}

test_read_makefile <- function() {
    old <- setwd(tempdir())
    on.exit(setwd(old))
    path <- tempfile()
    expectation <- provide_make_list(type = "minimal")
    write_makefile(expectation, path = path)
    result <- fakemake:::prune_list(read_makefile(path))
    RUnit::checkIdentical(result, expectation)
    expectation[[2]][".PHONY"] <- TRUE
    write_makefile(expectation, path = path)
    result <- fakemake:::prune_list(read_makefile(path))
    RUnit::checkIdentical(result, expectation)
}