test_that("tidySummarisedResult", {
  mocksum <- mockSummarisedResult() |>
  # settings
  dplyr::union_all(
    dplyr::tibble(
      result_id = as.integer(1),
      "cdm_name" = "mock",
      "result_type" = "mock_summarised_result",
      "package_name" = "visOmopResults",
      "package_version" = utils::packageVersion("visOmopResults") |>
        as.character(),
      "group_name" = "overall",
      "group_level" = "overall",
      "strata_name" = "overall",
      "strata_level" = "overall",
      "variable_name" = "settings",
      "variable_level" = NA_character_,
      "estimate_name" = "mock_default",
      "estimate_type" = "logical",
      "estimate_value" = "TRUE",
      "additional_name" = "overall",
      "additional_level" = "overall"
    )
  )

  expect_no_error(res0 <- tidySummarisedResult(mocksum, pivotEstimatesBy = "estimate_name"))
  expect_true(nrow(res0 |> dplyr::filter(.data$variable_name == "settings")) == 0)
  expect_true(all(c("cohort_name", "age_group", "sex", "mock_default", "count",
                    "mean", "sd", "percentage") %in% colnames(res0)))
  expect_true(class(res0$percentage) == "numeric")
  expect_true(class(res0$mean) == "numeric")
  expect_true(class(res0$count) == "integer")

  expect_no_error(res1 <- tidySummarisedResult(mocksum,
                                               split = FALSE))
  expect_true(all(c("group_name", "group_level", "strata_name", "strata_level",
                    "additional_name", "additional_level", "mock_default") %in%
                    colnames(res1)))
  expect_false(any(c("cohort_name", "age_group", "sex", "count",
                    "mean", "sd", "percentage") %in% colnames(res1)))

  expect_no_error(res2 <- tidySummarisedResult(mocksum,
                                               split = FALSE,
                                               pivotSettings = FALSE,
                                               pivotEstimatesBy = c("variable_name", "estimate_name"),
                                               estimateLabels = "{estimate_name}__{variable_name}"))
  expect_false("mock_default" %in% colnames(res2))
  expect_false("logic__settings" %in% colnames(res2))
  expect_true(all(c("count__number subjects", "mean__age", "sd__age",
                    "count__Medications", "percentage__Medications") %in% colnames(res2)))
  expect_true(class(res2$percentage__Medications) == "numeric")
  expect_true(class(res2$mean__age) == "numeric")
  expect_true(class(res2$count__Medications) == "integer")

})