covr: Disable some cluster checks - false positive with covr

Author: HenrikBengtsson

tests/cluster,worker-termination.R

@@ -14,8 +14,8 @@ message("Library paths: ", commaq(.libPaths()))
 message("Package path: ", sQuote(system.file(package = "future")))
 message("TMPDIR for parallel workers: ", sQuote(Sys.getenv("TMPDIR")))
 
-types <- "PSOCK"
-
+types <- NULL
+if (!covr_testing) types <- c(types, "PSOCK")
 if (supportsMulticore()) types <- c(types, "FORK")
 
 pid <- Sys.getpid()

tests/cluster-missing-future-pkg.R

@@ -6,8 +6,8 @@ message("*** cluster() ...")
 message("Library paths: ", commaq(.libPaths()))
 message("Package path: ", sQuote(system.file(package = "future")))
 
-types <- "PSOCK"
-
+types <- NULL
+if (!covr_testing) types <- c(types, "PSOCK")
 if (supportsMulticore()) types <- c(types, "FORK")
 
 setupClusterWithoutPkgs <- function(type = "PSOCK", withouts = c("future")) {