test_that("Creation functions", { ct1 <- clintable(mtcars) ct2 <- clintable(mtcars, group_by = "gear") expect_equal(ct1$clinify_config$pagination_method, "default") expect_equal(ct2$clinify_config$pagination_method, "custom") })