tests/testthat/test-ai_tool_read_file.R

In myownrobs: AI Coding Agent for 'RStudio'

test_that("read_file - invalid args", {
  expect_error(read_file(list()), "Invalid arguments for ReadFile")
})

test_that("read_file", {
  mock_file <- tempfile()
  writeLines("MOCK_CONTENT", mock_file)
  expect_equal(
    read_file(list(filepath = mock_file)),
    list(filepath = mock_file, content = "MOCK_CONTENT")
  )
})