test_that("bcat_sum_table works with numeric data", {
  result <- bcat_sum_table(mtcars[, c("mpg", "wt", "hp")], doc_type = "html")
  expect_true(inherits(result, "knitr_kable") || inherits(result, "kableExtra"))
})

test_that("bcat_sum_table works with by grouping", {
  result <- bcat_sum_table(mtcars[, c("mpg", "wt", "cyl")],
                           by = "cyl", doc_type = "html")
  expect_true(inherits(result, "knitr_kable") || inherits(result, "kableExtra"))
})