<arl_error/error/condition>
Error: File not found: D:	emp\2026_02_23_11_20_16_15377\Rtmp4WUrHm\filee1871e4215c.arl

test_that("DocParser parses @description annotations", {
test_that("DocParser parses @section annotations", {
test_that("DocParser parses @note and @signature", {
"  (define my-fn (lambda (a b) (+ a b)))",
expect_equal(fn$note, "This is a note.")
test_that("DocParser get_exports extracts module exports", {
test_that("DocParser handles defmacro definitions", {
test_that("DocParser skips standalone sections without definitions", {
"  ;;' This section has prose but no following definition.",
test_that("parse_text parses annotations from string input", {
;;' @description Add two numbers together.
expect_equal(fn$description, "Add two numbers together.")
test_that("string-input modules get annotation-based docs via eval_text", {
;;' @description Create a greeting message.
;;' (greet \"world\")  ; => \"hello, world\"
(define greet (lambda (name) (string-append \"hello, \" name)))
engine$eval_text("(import str-ann-mod :refer :all)", env = env)
fn <- engine$eval_text("greet", env = env)
doc <- attr(fn, "arl_doc", exact = TRUE)
expect_equal(doc$description, "Create a greeting message.")
test_that("DocParser parses @internal tag", {
test_that("DocParser parses @noeval tag", {
"  (define io-fn (lambda (path) path))",
test_that("annotation-based docs are available via compiler", {
"  ;;' @description Add two numbers together.",
# Load the module from file (triggers annotation parsing in compiler)
engine$eval(engine$read(sprintf('(load "%s")', tmp))[[1]], env = env)
engine$eval(engine$read("(import test-ann-mod :refer :all)")[[1]], env = env)
# The function should have annotation-based arl_doc
fn <- engine$eval(engine$read("add")[[1]], env = env)
expect_equal(doc$description, "Add two numbers together.")
test_that("DocParser loads reference docs and filters by kind", {
docs_path <- system.file("reference-docs.dcf", package = "arl")
test_that("@param tags are parsed correctly", {
"  (define add (lambda (a b) (+ a b)))",
test_that("unknown @ tags emit a warning", {
test_that("@param tags produce arl_doc$arguments via compiler", {
engine$eval(engine$read("(import param-compiler-test :refer :all)")[[1]], env = env)