TROUBLESHOOTING: Make sure parallelly::makeClusterPSOCK() works on ma…

…cOS, cf. HenrikBengtsson/parallelly#62
HenrikBengtsson · Jul 15, 2021 · 061cc7f · 061cc7f
1 parent 3a1a7a9
commit 061cc7f
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -5,5 +5,7 @@ Description: A minimal, valid, complete R package that can be used as a baseline
 Authors@R: c(
    person("Henrik", "Bengtsson", role=c("aut", "cre", "cph"),
           email = "henrikb@braju.com"))
+Suggests:
+   testthat,
+   parallelly
 License: GPL (>= 3)
-RoxygenNote: 6.0.1
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,3 @@
+library(testthat)
+library(teeny)
+test_check("teeny")
diff --git a/tests/testthat/test-parallelly.R b/tests/testthat/test-parallelly.R
@@ -0,0 +1,13 @@
+context("parallelly")
+
+test_that("makeClusterPSOCK(1) works", {  
+  cl <- parallelly::makeClusterPSOCK(1)
+  print(cl)
+  parallel::stopCluster(cl)
+})
+
+test_that("makeClusterPSOCK(2) works", {  
+  cl <- parallelly::makeClusterPSOCK(2)
+  print(cl)
+  parallel::stopCluster(cl)
+})