test_that("test comparedResult object", {

  x <- dplyr::tibble(
    "cdm_name" = c("cprd","cprd"),
    "result_type" = NA_character_,
    "package_name" = c("OmopCausal","OmopCausal"),
    "package_version" = c("0.0.1","0.0.2"),
    "group_name_reference" = c("sex","sex"),
    "group_level_reference" = c("male","male"),
    "strata_name_reference" = c("sex","sex"),
    "strata_level_reference" = c("male","male"),
    "group_name_comparator" = c("sex","sex"),
    "group_level_comparator" = c("male","male"),
    "strata_name_comparator" = c("sex","sex"),
    "strata_level_comparator" = c("male","male"),
    "variable_name" = c("age_group","age_group"),
    "variable_level" = c("10 to 50","50+"),
    "estimate_name"= c("count","count"),
    "estimate_type" = "numeric",
    "estimate_value"= c("6","7"),
    "additional_name_reference" = "overall",
    "additional_level_reference" = "overall",
    "additional_name_comparator" = "overall",
    "additional_level_comparator" = "overall"
  )
  expect_no_error(comparedResult(x = x))

  class <- x |> comparedResult() |> class()
  expect_true(c("compared_result") %in% class)

  # check none character
  x <- dplyr::tibble(
    "cdm_name" = c(1,1),
    "result_type" = NA_character_,
    "package_name" = c("OmopCausal","OmopCausal"),
    "package_version" = c("0.0.1","0.0.2"),
    "group_name_reference" = c("sex","sex"),
    "group_level_reference" = c("male","male"),
    "strata_name_reference" = c("sex","sex"),
    "strata_level_reference" = c("male","male"),
    "group_name_comparator" = c("sex","sex"),
    "group_level_comparator" = c("male","male"),
    "strata_name_comparator" = c("sex","sex"),
    "strata_level_comparator" = c("male","male"),
    "variable_name" = c("age_group","age_group"),
    "variable_level" = c("10 to 50","50+"),
    "estimate_name"= c("count","count"),
    "estimate_type" = "numeric",
    "estimate_value"= c("6","7"),
    "additional_name_reference" = "overall",
    "additional_level_reference" = "overall",
    "additional_name_comparator" = "overall",
    "additional_level_comparator" = "overall"
  )
  expect_error(comparedResult(x = x))


  #check none sentence case
  x <- dplyr::tibble(
    "cdm_name" = c(1,1),
    "result_type" = c("Compared Result","Compared result"),
    "package_name" = c("OmopCausal","OmopCausal"),
    "package_version" = c("0.0.1","0.0.2"),
    "group_name_reference" = c("sex","sex"),
    "group_level_reference" = c("male","male"),
    "strata_name_reference" = c("sex","sex"),
    "strata_level_reference" = c("male","male"),
    "group_name_comparator" = c("sex","sex"),
    "group_level_comparator" = c("male","male"),
    "strata_name_comparator" = c("sex","sex"),
    "strata_level_comparator" = c("male","male"),
    "variable_name" = c("age_group","age_group"),
    "variable_level" = c("10 to 50","50+"),
    "estimate_name"= c("count","count"),
    "estimate_type" = "numeric",
    "estimate_value"= c("6","7"),
    "additional_name_reference" = "overall",
    "additional_level_reference" = "overall",
    "additional_name_comparator" = "overall",
    "additional_level_comparator" = "overall"
  )
  expect_error(comparedResult(x = x))

  #check wrong columns
  x <- dplyr::tibble(
    "package" = "patientProfiles",
    "package_version" = "0.4.0",
    "group_name" = "sex",
    "group_level" = "male",
    "strata_name" = "sex",
    "strata_level" = "male",
    "variable" = "age_group",
    "variable_level" = "10 to 50",
    "estimate_type" = "count",
    "estimate" = "5"
  )
  expect_error(comparedResult(x = x))

  # check NA
  x <- dplyr::tibble(
    "cdm_name" = c(NA_character_,NA_character_),
    "result_type" = c("Compared Result","Compared result"),
    "package_name" = c("OmopCausal","OmopCausal"),
    "package_version" = c("0.0.1","0.0.2"),
    "group_name_reference" = c("sex","sex"),
    "group_level_reference" = c("male","male"),
    "strata_name_reference" = c("sex","sex"),
    "strata_level_reference" = c("male","male"),
    "group_name_comparator" = c("sex","sex"),
    "group_level_comparator" = c("male","male"),
    "strata_name_comparator" = c("sex","sex"),
    "strata_level_comparator" = c("male","male"),
    "variable_name" = c("age_group","age_group"),
    "variable_level" = c("10 to 50","50+"),
    "estimate_name"= c("count","count"),
    "estimate_type" = "numeric",
    "estimate_value"= c("6","7"),
    "additional_name_reference" = "overall",
    "additional_level_reference" = "overall",
    "additional_name_comparator" = "overall",
    "additional_level_comparator" = "overall"
  )
  expect_error(comparedResult(x = x))
})