test_that("expandir_categoria funciona correctamente", {
    expect_equal(raefy:::expandir_categoria("m."), "nombre masculino")
    expect_equal(raefy:::expandir_categoria("f."), "nombre femenino")
    expect_equal(raefy:::expandir_categoria("tr."), "verbo transitivo")
    expect_equal(raefy:::expandir_categoria("adj."), "adjetivo")
    expect_equal(raefy:::expandir_categoria(NA), NA_character_)
})