Mock cloud_config() tests

Author: shikokuchuo

tests/tests.R

@@ -43,7 +43,14 @@ 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")
-test_error(cloud_config(platform = "posit"), "can only be used from Posit Workbench")
+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"))))