mi_lista <- list(
  a = c(1, 2, 3),
  b = c(6,7,8,9),
  c = c(4,5)
)



test_that("encontrar_componente", {
  expect_equal(encontrar_componente(mi_lista, 7), 2,tolerance=1e-6)
  expect_equal(encontrar_componente(mi_lista, 2), 1,tolerance=1e-6)
  expect_equal(encontrar_componente(mi_lista, 5), 3,tolerance=1e-6)
})