test_that("obtener_palabra retorna estructura correcta", {
    skip_on_cran()

    res <- obtener_palabra("hola")

    if (!is.null(res)) {
        expect_type(res, "list")
        expect_true("palabra" %in% names(res))
        expect_true("definiciones" %in% names(res))
        expect_s3_class(res$definiciones, "data.frame")
    }
})

test_that("recorrer_palabras procesa multiples palabras", {
    skip_on_cran()

    res <- recorrer_palabras(c("agua", "fuego"), progreso = FALSE)

    if (nrow(res) > 0) {
        expect_s3_class(res, "data.frame")
        expect_true(any(res$palabra == "agua"))
        expect_true(any(res$palabra == "fuego"))
    }
})