# tests/testthat/test-ctablerseh.R

library(testthat)
library(ctablerseh)
library(survey)

test_that("ctablerseh returns correct results", {



  result <- ctablerseh(numerator = INDI, denominator = denom, disaggregation = R101,
                       survey.design = svydesign(id=~psu, strata=~strata, data = datex, weights=~FWT), survey.data = datex, survey.type = "prop")

  # Memastikan hasil yang diinginkan ada dalam output
  expect_true(!is.null(result))
})