inst/runit_tests/runit-makelist2igraph.R

if (interactive()) pkgload::load_all()
test_provide_makefile <- function() {
    # This test is broken. I do not know, why result would be a list of 10 and
    # why the 5th item is an error where the list breaks.
    make_list <- fakemake:::provide_make_list(type = "minimal")

    result <- fakemake:::makelist2igraph(make_list, root = "all.Rout")
    RUnit::checkTrue(inherits(result, "igraph"))

    result <- fakemake:::makelist2igraph(make_list, root = NULL)
    RUnit::checkTrue(inherits(result, "igraph"))
}

Try the fakemake package in your browser

Any scripts or data that you put into this service are public.

fakemake documentation built on Aug. 16, 2023, 1:09 a.m.