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

    res <- palabra_del_dia()

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

test_that("palabra_aleatoria retorna definicion", {
    skip_on_cran()

    res <- palabra_aleatoria()

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

test_that("buscar_anagrama encuentra anagramas conocidos", {
    skip_on_cran()

    res <- buscar_anagrama("amor")

    if (nrow(res) > 0) {
        expect_s3_class(res, "data.frame")
        expect_true("roma" %in% res$header || "mora" %in% res$header || "ramo" %in% res$header)
    }
})

test_that("autocompletar sugiere palabras", {
    skip_on_cran()

    res <- autocompletar("progra")

    if (length(res) > 0) {
        expect_type(res, "character")
        expect_true(any(grepl("program", res)))
    }
})