Mock cloud launcher tests

Author: shikokuchuo

tests/tests.R

@@ -42,15 +42,6 @@ test_true(grepl("5555", local_url(tcp = TRUE, port = 5555), fixed = TRUE))
 test_type("list", ssh_config("ssh://remotehost"))
 test_type("list", ssh_config("ssh://remotehost", tunnel = TRUE))
 test_type("list", cluster_config())
-test_error(cloud_config(platform = ""), "not supported")
-if (is.null(mirai:::posit_tools())) {
-  test_error(cloud_config(platform = "posit"), "can only be used from Posit Workbench")
-  ns <- new.env(parent = emptyenv())
-  `[[<-`(ns, ".rs.api.launcher.jobsFeatureAvailable", function() TRUE)
-  `[[<-`(ns, ".rs.api.launcher.getInfo", function() list(clusters = list(list(name = "Kubernetes", defaultImage = "1.a.b.reg.prov.com/int-r-sess:ubuntu2204-20250609"))))
-  attach(ns, name = "tools:rstudio")
-}
-test_type("list", cloud_config(platform = "posit"))
 test_true(is_mirai_interrupt(r <- mirai:::mk_interrupt_error()))
 test_print(r)
 test_true(is_mirai_error(r <- `class<-`("Error in: testing\n", c("miraiError", "errorValue", "try-error"))))
@@ -68,6 +59,23 @@ for (i in 0:4)
 test_null(register_serial("test_klass1", serialize, unserialize))
 test_null(register_serial(c("test_klass2", "test_klass3"), list(serialize, serialize), list(unserialize, unserialize)))
 test_equal(length(mirai:::.[["serial"]][[3L]]), 3L)
+# cloud launcher tests
+test_error(cloud_config(platform = ""), "not supported")
+is.null(mirai:::posit_tools()) && {
+  ns <- new.env(parent = emptyenv())
+  `[[<-`(ns, ".rs.api.launcher.jobsFeatureAvailable", function() TRUE)
+  `[[<-`(ns, ".rs.api.launcher.getInfo", function() list(clusters = list(list(name = "Kubernetes", defaultImage = "1.a.b.reg.prov.com/int-r-sess:ubuntu2204-20250609"))))
+  `[[<-`(ns, ".rs.api.launcher.newContainer", function(image) image)
+  `[[<-`(ns, ".rs.api.launcher.submitJob", function(...) NULL)
+  attach(ns, name = "tools:rstudio")
+  cfg <- cloud_config(platform = "posit")
+  test_type("list", cfg)
+  test_zero(daemons(url = local_url(), dispatcher = FALSE))
+  test_class("miraiLaunchCmd", launch_remote(n = 2L, remote = cfg))
+  test_zero(daemons(0))
+  detach()
+  test_error(cloud_config(platform = "posit"), "can only be used from Posit Workbench")
+}
 # mirai and daemons tests
 connection && {
   Sys.sleep(1L)