tests/testthat/test-create.R

context("cluster creation")

test_that("create cluster", {
        cl_name <- tempfile()
        cl <- cluster_create(cl_name)
        expect_true(file.exists(file.path(cl_name,
                                          sprintf("%s.q",
                                                  basename(cl_name)))))
        expect_is(cl$jobqueue, "job_queue")
})
rdpeng/threadpool documentation built on Nov. 20, 2019, 2 p.m.