confirm that mcp_server and mcp_tools can roundtrip with mcp-remote

Author: simonpcouch

inst/example-config-remote.json

@@ -0,0 +1,11 @@
+{
+  "mcpServers": {
+    "mcptools": {
+      "command": "npx",
+      "args": [
+        "mcp-remote",
+        "http://localhost:8080"
+      ]
+    }
+  }
+}

tests/testthat/test-server.R

@@ -1,6 +1,6 @@
 skip_if(is_fedora())
 
-test_that("roundtrip mcp_server and mcp_tools", {
+test_that("roundtrip mcp_server and mcp_tools (stdio)", {
   previous_server_processes <- names(the$server_processes)
 
   # example-config configures `Rscript -e "mcptools::mcp_server()"`
@@ -29,6 +29,44 @@ test_that("roundtrip mcp_server and mcp_tools", {
   expect_equal(list_r_sessions_tool@description, list_r_sessions_@description)
 })
 
+test_that("roundtrip mcp_server and mcp_tools (http)", {
+  skip_on_cran()
+  skip_on_ci()
+  skip_if_not(nzchar(Sys.which("npx")), "npx not available")
+
+  http_server <- processx::process$new(
+    command = rscript_binary(),
+    args = c(
+      "-e",
+      "mcptools::mcp_server(type = 'http', port = 8080)"
+    ),
+    stdout = "|",
+    stderr = "|"
+  )
+  withr::defer(http_server$kill())
+
+  Sys.sleep(2)
+
+  if (!http_server$is_alive()) {
+    stop("HTTP server failed to start")
+  }
+
+  tools <- mcp_tools(system.file(
+    "example-config-remote.json",
+    package = "mcptools"
+  ))
+
+  tool_names <- c()
+  for (tool in tools) {
+    tool_names <- c(tool_names, tool@name)
+  }
+  expect_true(
+    all(c("list_r_sessions", "select_r_session") %in% tool_names)
+  )
+  list_r_sessions_ <- tools[[which(tool_names == "list_r_sessions")]]
+  expect_equal(list_r_sessions_tool@description, list_r_sessions_@description)
+})
+
 test_that("check_not_interactive errors informatively", {
   testthat::local_mocked_bindings(interactive = function(...) TRUE)