tests/testthat/test_exportedTestFunction.R

In Jiefei-Wang/DockerParallel: Using the Docker Container to Create R Workers on Local or Cloud Platform

## Test the general unit test function exported from this package

resetDummyProvider()
verbose <- 0

test_that("testthat", {
    expect_error(
        provider <- DummyProvider()
        ,NA)
    expect_error(
        container <- DummyWorkerContainer()
        ,NA)
    expect_error(
        generalDockerClusterTest(
            cloudProvider = provider,
            workerContainer = container,
            workerNumber = 5,
            testReconnect = TRUE,
            verbose = verbose)
        ,NA)
})