Nothing
## 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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.