`str\(tbl\)` does not match "4 obs. of  3 variables".
Actual value: "'data\.frame':\\t22 obs\. of  3 variables:\\n \$ variable: chr  "Porcentaje de mujeres funcionarias municipales" "Porcentaje de mujeres profesionales sobre el total de funcionarias municipales Mujeres" "Porcentaje de mujeres en escalafón directivo sobre total de funcionarias municipales mujeres\." "Número de hombres planta" \.\.\.\\n \$ unit    : chr  "%   " "%   " "%   " "N°  " \.\.\.\\n \$ code    : int  1231 1232 1259 4057 4058 4064 4065 4072 657 704 \.\.\."

test_that("get_sinim_vars returns a valid output", {
expect_output(str(tbl), "4 obs. of  3 variables")