TESTS: Don't test 'batchtools_ssh' on Windows - not supported

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.batchtools
-Version: 0.12.2-9902
+Version: 0.12.2-9903
 Depends:
     R (>= 3.2.0),
     parallelly,

inst/testme/test-batchtools_ssh.R

@@ -1,32 +1,35 @@
-library(future.batchtools)
-library(listenv)
+if (.Platform[["OS.type"]] != "windows") {
+  library(future.batchtools)
+  library(listenv)
+  
+  message("*** batchtools_ssh() ...")
+  
+  plan(batchtools_ssh, workers = 2L)
+  supports_ssh <- tryCatch({
+    f <- future(42L)
+    v <- value(f)
+    identical(v, 42L)
+  }, error = function(e) FALSE)
+  message("Supports batchtools_ssh: ", supports_ssh)
+  
+  if (supports_ssh) {
+    message("future(a) ...")
+    a0 <- a <- 42
+    f <- future(a)
+    stopifnot(identical(f$globals$a, a0))
+    v <- value(f)
+    stopifnot(identical(v, a0))
+  
+    message("future(a, lazy = TRUE) ...")
+    a0 <- a <- 42
+    f <- future(a, lazy = TRUE)
+    rm(list = "a")
+    stopifnot(identical(f$globals$a, a0))
+    v <- value(f)
+    stopifnot(identical(v, a0))
+  } ## if (supports_ssh)
+  
+  message("*** batchtools_ssh() ... DONE")
+}
 
-message("*** batchtools_ssh() ...")
-
-plan(batchtools_ssh, workers = 2L)
-supports_ssh <- tryCatch({
-  f <- future(42L)
-  v <- value(f)
-  identical(v, 42L)
-}, error = function(e) FALSE)
-message("Supports batchtools_ssh: ", supports_ssh)
-
-if (supports_ssh) {
-  message("future(a) ...")
-  a0 <- a <- 42
-  f <- future(a)
-  stopifnot(identical(f$globals$a, a0))
-  v <- value(f)
-  stopifnot(identical(v, a0))
-
-  message("future(a, lazy = TRUE) ...")
-  a0 <- a <- 42
-  f <- future(a, lazy = TRUE)
-  rm(list = "a")
-  stopifnot(identical(f$globals$a, a0))
-  v <- value(f)
-  stopifnot(identical(v, a0))
-} ## if (supports_ssh)
-
-message("*** batchtools_ssh() ... DONE")