any(grepl("R version", content)) is not TRUE

`actual`:   FALSE
`expected`: TRUE

test_that("pr_mcp_resource exists and is exported", {
test_that("pr_mcp_help_resources exists and is exported", {
test_that("pr_mcp_resource adds resource to router", {
# Check that resource was added to environment
test_that("resources capability is included in server info", {
pr$handle("GET", "/test", function() list(msg = "test"))
# Test that capabilities include resources
tools <- plumber2mcp:::extract_plumber_tools(pr, NULL, NULL)
test_that("resources/list returns empty list when no resources", {
test_that("resources/list returns resource information", {
test_that("resources/read returns resource content", {
func = function() "Hello from resource",
test_that("resources/read returns error for unknown resource", {
params = list(uri = "/unknown/resource")
test_that("pr_mcp_help_resources adds default help topics", {
# Should have 8 help topics + 2 system resources (session-info, packages)
# Check that specific help resources exist
test_that("pr_mcp_help_resources works with custom topics", {
pr <- pr_mcp_help_resources(pr, topics = c("mean", "sum"))
# Should have 2 help topics + 2 system resources
test_that("help resource content is readable", {
pr <- pr_mcp_help_resources(pr, topics = c("mean"))
expect_true(any(grepl("mean", content, ignore.case = TRUE)))
test_that("session info resource works", {
pr <- pr_mcp_help_resources(pr, topics = c())
# Get the session info resource function

"pr_mcp_resource exists and is exported"
"pr_mcp_help_resources exists and is exported"
"pr_mcp_resource adds resource to router"
"resources capability is included in server info"
"resources/list returns empty list when no resources"
"resources/read returns error for unknown resource"
"pr_mcp_help_resources adds default help topics"
"pr_mcp_help_resources works with custom topics"