inst/tinytest/test-makeSlurmCluster.R

In USCbiostats/sluRm: A Lightweight Wrapper for 'Slurm'

if (slurm_available()) {

  cl1 <- tryCatch(makeSlurmCluster(2, time = "00:05:00",
    job_name = "test-makeSlurmCluster"), error = function(e) e)

  if (!inherits(cl1, "error")) {


  cl2 <- makePSOCKcluster(2)

  set.seed(123155)
  x <- replicate(2, runif(200), simplify = FALSE)
  ans1 <- parSapply(cl1, x, mean)
  ans2 <- parSapply(cl2, x, mean)

  expect_equal(ans1, ans2)
  expect_silent(print(cl1))

  stopCluster(cl1)
  stopCluster(cl2)
  } else {
    print(cl1)
  }

}