tests/testthat/test-createpool.R

context("test-createpool")

a <- ghosts::createPool("a", tempdir())

test_that("create pool works", {
  expect_equal(class(a[[1]])[[1]], "Pool")
  expect_equal(class(a), "list")
  expect_equal(length(a), 1)
})
chasemc/ghosts documentation built on May 8, 2019, 12:50 a.m.