@@ -107,7 +107,7 @@ connection && {
107107 test_zero(daemons(0L , .compute = " new" ))
108108}
109109# additional daemons tests
110- connection && .Platform [[ " OS.type " ]] != " windows " && {
110+ connection && {
111111 Sys.sleep(1L )
112112 test_zero(daemons(url = value <- local_url(), dispatcher = FALSE ))
113113 test_identical(status()$ daemons , value )
@@ -121,7 +121,7 @@ connection && .Platform[["OS.type"]] != "windows" && {
121121 test_zero(daemons(0L ))
122122}
123123# mirai_map tests
124- connection && .Platform [[ " OS.type " ]] != " windows " && {
124+ connection && {
125125 Sys.sleep(1L )
126126 m <- with(daemons(1 , dispatcher = " none" , .compute = " ml" ), {
127127 if (is.null(tryCatch(mirai_map(list (1 , " a" , 2 ), sum , .compute = " ml" )[.stop ], error = function (e ) NULL )))
@@ -213,7 +213,7 @@ connection && {
213213 test_null(stopCluster(cl ))
214214}
215215# advanced daemons and dispatcher tests
216- connection && .Platform [[ " OS.type " ]] != " windows " && Sys.getenv(" NOT_CRAN" ) == " true" && {
216+ connection && Sys.getenv(" NOT_CRAN" ) == " true" && {
217217 Sys.sleep(0.5 )
218218 test_zero(daemons(url = " ws://:0" , correctype = 0L , token = TRUE ))
219219 test_zero(daemons(0L ))
@@ -357,7 +357,7 @@ connection && Sys.getenv("NOT_CRAN") == "true" && {
357357 test_zero(daemons(0 ))
358358}
359359# legacy interface tests
360- connection && .Platform [[ " OS.type " ]] != " windows " && Sys.getenv(" NOT_CRAN" ) == " true" && {
360+ connection && Sys.getenv(" NOT_CRAN" ) == " true" && {
361361 Sys.sleep(0.5 )
362362 option <- 15L
363363 Sys.setenv(R_DEFAULT_PACKAGES = " stats,utils" )
0 commit comments