test_that("buscar_palabra encuentra resultados", {
    skip_on_cran()

    res <- raefy:::buscar_palabra("hola")

    expect_s3_class(res, "data.frame")
    if (nrow(res) > 0) {
        expect_true("id" %in% names(res))
        expect_true("palabra" %in% names(res))
    }
})

test_that("obtener_palabra_cruda obtiene HTML", {
    skip_on_cran()

    res <- raefy:::obtener_palabra_cruda("hola")

    expect_type(res, "character")
    expect_true(nchar(res) > 0)
    expect_true(grepl("<html", res) || grepl("<article", res) || grepl("<div", res))
})