test_that("analyze_growth creates scatter plot and top-10 tables", {
  obj <- create_curated_test_object()
  obj <- transform_curated_data(obj)
  obj <- analyze_growth(obj)

  expect_true(!is.null(obj@graficos$growth_scatter))
  expect_s3_class(obj@graficos$growth_scatter, "ggplot")
  expect_true(!is.null(obj@resultados_analisis$best_10_ngen))
  expect_true(!is.null(obj@resultados_analisis$best_10_gr))
})